Sub Commandes()
Dim cel As Range
For Each cel In Range("E11:E2000")
If cel <> "" And IsNumeric(cel) Then
Feuil31.[c100].End(xlUp).Rows(2) = cel.Offset(, -4)
End If
Next
End Sub
Sub Commandes()
Dim cel As Range, Lg As Integer
Lg = Application.Max(14, Feuil2.Range("C" & Rows.Count).End(xlUp).Row + 1)
For Each cel In Range("E10:E" & Rows.Count).SpecialCells(xlCellTypeConstants, 1)
Feuil2.Range("C" & Lg) = cel.Offset(, -4)
Lg = Lg + 1
Next
End Sub
Sub Commandes()
Dim cel As Range, Lg As Integer
Lg = 14
For Each cel In Range("E10:E" & Rows.Count).SpecialCells(xlCellTypeConstants, 1)
Feuil2.Range("C" & Lg) = cel.Offset(, -4)
Lg = Lg + 1
If Lg = 70 Then
MsgBox ("Attention, fin de zone")
Exit Sub
End If
Next
End Sub