Sub supDoublonsTradi()
Application.ScreenUpdating = False
col1 = 2
col2 = 3
col3 = 4
Application.Calculation = xlCalculationManual
Cells(3, col1).Sort Key1:=Cells(3, col1), Order1:=xlAscending, _
Key2:=Cells(3, col2), Order2:=xlAscending, _
Key3:=Cells(3, col3), Order3:=xlAscending, Header:=xlGuess
For i = Cells(65000, col1).End(xlUp).Row To 4 Step -1
If Trim(Cells(i, col1)) = Trim(Cells(i - 1, col1)) _
And Trim(Cells(i, col2)) = Trim(Cells(i - 1, col2)) _
And Trim(Cells(i, col3)) = Trim(Cells(i - 1, col3)) Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomatic
End Sub