Sub supDoublonsTradi()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
[A1].Sort Key1:=Range("B2"), Order1:=xlAscending, _
Key2:=Range("D2"), Order2:=xlDescending, Header:=xlGuess
For i = [B65000].End(xlUp).Row To 2 Step -1
If Cells(i, 2) = Cells(i - 1, 2) Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomatic
End Sub