Sub efface()
Range("A3:F" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("F3") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
For n = Range("A65536").End(xlUp).Row To 3 Step -1
If Range("A" & n - 1) = Range("A" & n) And Range("F" & n - 1) < Range("F" & n) Then
Rows(n - 1).Delete
n = n + 1
End If
Next n
End Sub