Sub Test1()
Dim ligne1 As Integer, ligne2 As Integer, colone1 As Integer, colone2 As Integer
ligne1 = 1: colone1 = 1: ligne2 = 1: colone2 = 1
Do While Cells(ligne2, colone2).Value > Cells(ligne1, colone1).Value
If Cells(ligne1, colone1).Value <> Cells(ligne2, colone2).Value Then
ligne2 = ligne2 + 1
Else
If Cells(ligne1, colone1).Value = Cells(ligne2, colone2).Value Then ligne1 = ligne1 + 1
End If
'If Cells(ligne1, colone1).Value > Cells(ligne2, colone2).Value Then Exit Do
Loop
MsgBox "La suppression des fichiers est terminée"
End Sub