XL 2016 transfert de données

Sub Archive()
Application.ScreenUpdating = False
DL = 1 + Sheets("Archivage").Range("A65500").End(xlUp).Row ' Première ligne disponible
With Sheets("Archivage")
    .Cells(DL, "A") = Range("A21")  ' à voir si c'est la bonne case de la date
    .Cells(DL, "B") = Range("D7")   ' à voir si c'est la bonne case du client
    .Cells(DL, "C") = Range("C17")  ' No facture
    .Cells(DL, "D") = Range("D17")  ' Indice No facture
    .Cells(DL, "E") = Range("E45")  ' HT
    .Cells(DL, "F") = Range("E46")  ' TVA
    .Cells(DL, "G") = Range("E47")  ' TTC
End With
End Sub