Sub DeleteSameRows()
Application.ScreenUpdating = False
Range("A2").Select
' Tri sur la colonne B & C & D
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
'Derniere cellule a inclure dans le tri
Limite = (Range("A2").End(xlDown).Row - 1)
Range("A2:A" & Limite + 1).Select
' Tri sur la colonne A
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
For i = Range("A65535").End(xlUp).Row To 3 Step -1
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
If Cells(i, 4).Value = Cells(i - 1, 4).Value Then
Rows(i).Delete Shift:=xlUp
End If
End If
End If
End If
Next i
Application.ScreenUpdating = True
Range("A1").Select