Sub Commande2()
'
Dim WsDepart As Worksheet
Dim WsDestination As Worksheet
Dim i As Integer
Dim j As Integer
Set WsDestination = Sheets("Commande")
Set WsDepart = Sheets("Analyse")
Worksheets("Commande").Range("A2:D1999").ClearContents
i = 8
j = 2
With WsDepart
For Each C In .Range("AT8:AT1999")
If Not IsEmpty(C) And IsNumeric(C) Then
With WsDepart.Range("B" & i & ":D" & i).Copy
WsDestination.Range("A" & j & ":D" & j).PasteSpecial xlPasteValues
WsDepart.Range("AT" & i).Copy
WsDestination.Range("D" & j).PasteSpecial xlPasteValues
End With
i = i + 1
j = j + 1
End If
Next
End With
End Sub