Chiffre à la place du X

[toffduq]

bonjour à tous
j’ai cette formule qui fonctionne bien mais comment faire pour remplacer le X par un chiffre
en sachant que le chiffre peut être de 1 à 15
merci pour votre aide

Sub listing()

Dim sh, i, DernCol As Integer
Dim Wb_dest As String
Dim Wb_dep As String

Application.ScreenUpdating = False

Wb_dep = ActiveWorkbook.Name

For sh = 1 To Workbooks(Wb_dep).Sheets.Count
ligne = 4
For i = 2 To Workbooks(Wb_dep).Sheets(sh).Range(« B65536 »).End(xlUp).Row
If Workbooks(Wb_dep).Sheets(sh).Range(« E » & i) = « 0 » Then
Workbooks(Wb_dep).Sheets(sh).Range(« B » & i & « :F » & i).Copy Workbooks(Wb_dep).Sheets(2).Range(« B » & ligne)
ligne = ligne + 1
End If
Next i
Next sh
End Sub

[Jacquinot_WILL-FREAD]

Bonjour,
Malheureusement, dans votre code, on n’a pas X, cela peut être dans vos feuille,
Sans avoir le fichier, il serait difficile de vous aider.
Cordialement