Dim Date_comm As Date
Dim Service As String
Dim Qté_comm As Integer, Nb_lignes_demlivr As Integer
With ActiveWorkbook
Date_comm = .Sheets("Commande").Range("B1")
Service = .Sheets("Commande").Range("B2")
For Boucle = 6 To Nb_lignes_commande 'cela doit être renseigné sinon 65000(Nb_ligne......)
If .Sheets("Commande").Range("E" & Boucle) = "" Then Exit For
Catégorie = .Sheets("Commande").Range("A" & Boucle)
Qté_comm = .Sheets("Commande").Range("E" & Boucle)
Désignation = .Sheets("Commande").Range("B" & Boucle)
Nb_lignes_demlivr = ThisWorkbook.Sheets("Demandes-livraisons").Range("A" & Rows.Count).End(xlUp).Row
ThisWorkbook.Sheets("Demandes-livraisons").Range("A" & Nb_lignes_demlivr + 1) = Date_comm
ThisWorkbook.Sheets("Demandes-livraisons").Range("B" & Nb_lignes_demlivr + 1) = Service
ThisWorkbook.Sheets("Demandes-livraisons").Range("C" & Nb_lignes_demlivr + 1) = Catégorie
ThisWorkbook.Sheets("Demandes-livraisons").Range("D" & Nb_lignes_demlivr + 1) = Désignation
ThisWorkbook.Sheets("Demandes-livraisons").Range("G" & Nb_lignes_demlivr + 1) = Qté_comm
Next Boucle
End With