Sub DeleteDouble()
Dim Plage As Range, Cel As Range
Dim Col As New Collection, ASupprimer As Range
'de la feuille 5 à 8
For n = 5 To 8
With Sheets(n)
.Range("A1:AF65536").Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Set rRange = .Range(.[A1], .[A1].End(xlDown))
For Each rCell In rRange
Do While rCell = rCell.Offset(1, 0)
rCell.Offset(1, 0).EntireRow.Delete
Loop
Next rCell
End With
Next
End Sub