Sub Commande()
Dim L%, C%, DL%
Application.ScreenUpdating = False
For C = 2 To 7
For L = 7 To Cells(1000, C).End(xlUp).Row
If Cells(L, C) <> "" Then
DL = 1 + Sheets("commande général").Cells(1000, C - 1).End(xlUp).Row
Sheets("commande général").Cells(DL, C - 1) = Cells(L, C)
End If
Next L
Next C
End Sub