Sub EnregistrementCINQ()
Dim src As Range, dst As Range, nr As Long, nc
Dim kk7, ll7
With Sheets("Commande")
nc = .[D15]: kk7 = .[K7]: ll7 = .[L7]
With .Range("A20").CurrentRegion
nr = .Rows.Count - 1: Set src = .Offset(1, 0).Resize(nr)
End With
End With
With Sheets("Base de données commande")
Set dst = .[A65536].End(xlUp)(2).Resize(nr, 9)
With dst
.Offset(, 2).Value = src.Value
.Columns(1) = nc
.Columns(2) = kk7
.Columns(3) = ll7
End With
End With
Set dst = Nothing
Set src = Nothing
End Sub