Private Sub CommandButton2_Click()
With Sheets("Archivage")
dl = .Range("B65000").End(xlUp).Row + 1
.Cells(dl, 2) = Format(TBX_Date, "mm/dd/yyyy")
.Cells(dl, 3) = Mois
.Cells(dl, 4) = Client
.Cells(dl, 5) = CA * 1
.Cells(dl, 6) = Carte
.Cells(dl, 7) = Remise * 1
.Cells(dl, 8) = Code * 1
End With
With Sheets("Archivage2") 'remplace archivage2 par le nom de ta 2e feuille
dl = .Range("B65000").End(xlUp).Row + 1
.Cells(dl, 2) = Format(TBX_Date, "mm/dd/yyyy")
.Cells(dl, 3) = Mois
.Cells(dl, 4) = Client
.Cells(dl, 5) = CA * 1
.Cells(dl, 6) = Carte
.Cells(dl, 7) = Remise * 1
.Cells(dl, 8) = Code * 1
End With
Unload Me
End Sub