Quand l’appel cette fonction elle ne fonction que la 1er fois ?
Après cela ne marche plus
Sub RemplirLaListeACommander()
Dim Cell As Range
Dim LigneDestination As Integer
Sheets("A commander").Range("A4:J1000") = ""
LigneDestination = 4
With Sheets("Stocks")
For Each Cell In .Range("A4:A" & .Range("A1000").End(xlUp).Row)
If Cell.Offset(0, 9) = "A commander" Then
.Range(Cell, Cell.Offset(0, 9)).Copy Destination:=Sheets("A commander").Range("A" & LigneDestination)
End If
Next
End With
End Sub