Sub supdoublonsOrdre()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set champ = Range("A2:A" & [A65000].End(xlUp).Row)
For i = [A65000].End(xlUp).Row To 1 Step -1
If Application.CountIf(champ, Cells(i, 1)) > 1 Then
Cells(i, 1).Delete Shift:=xlUp ' ou Rows(i).Delete
End If
Next i
Application.Calculation = xlAutomatic
End Sub