Bonjour,
une petite sub pour un archivage sans écrabouillement:
Public Sub ArchivageFacture()
Dim DateFacture As Date
Dim NomClient As String
Dim MontantTotal As Long
DateFacture = Range("A1")
NomClient = Range("A2")
MontantTotal = Range("A3")
Sheets("Archives").Activate
'J'ai mis dans la ligne 1 des titres de colonne
'Si A2 est vide, faire un ".end(xlDown)" positionne à la fin du classeur
'Alors si A2 est vide, je saute uniquement une ligne sinon je me positionne
'a la dernière entrée et ensuite je saute une ligne.
If Not Range("A2") = "" Then Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = DateFacture
ActiveCell.Offset(0, 1) = NomClient
ActiveCell.Offset(0, 2) = MontantTotal
End Sub
en supposant qu'au lancement de la sub tu est sur la feuille facture, le mieux serait de lier la sub avec un bouton.