Type commande
BL As String
jour As Date
NumAffaire As String
RefI As String
Designation As String
qte As Integer
End Type
Sub recopie()
Dim tablo() As commande
NbCommandes = Range("A" & Rows.Count).End(xlUp).Row - 7
ReDim tablo(1 To NbCommandes)
For i = LBound(tablo) To UBound(tablo)
tablo(i).BL = [E1]
tablo(i).jour = [E3]
tablo(i).NumAffaire = [B5]
tablo(i).RefI = Range("A7").Offset(i, 0)
tablo(i).Designation = Range("B7").Offset(i, 0)
tablo(i).qte = Range("E7").Offset(i, 0)
Next i
With Sheets("Suivi cde")
For i = LBound(tablo) To UBound(tablo)
.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i).BL
.Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i).jour
.Range("C" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i).RefI
.Range("D" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i).Designation
.Range("E" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i).NumAffaire
.Range("F" & Rows.Count).End(xlUp).Offset(1, 0) = tablo(i).qte
Next i
End With
End Sub