Sub Archive()
Dim DL%, DLA%, L%, C%
Application.ScreenUpdating = False
DL = [A65500].End(xlUp).Row ' Dernière ligne occupée
With Sheets("Archive")
DLA = .[A65500].End(xlUp).Row + 1 ' Première ligne vide d'archive
For L = DL To 2 Step -1
If Cells(L, "F") <> "" Then ' Si date fin non vide alors on archive
For C = 1 To 10 ' On transfert les 10 cellules
.Cells(DLA, C) = Cells(L, C)
Next C
DLA = DLA + 1 ' Prochaine ligne d'écriture archive
Rows(L).Delete Shift:=xlUp ' Suppression de la ligne archivée
End If...