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