Sub test()
Dim I As Long, AEffacer As String, J As Long
Application.ScreenUpdating = False
I = 2
Do
If Not Evaluate("ISERROR(MATCH(B" & I & "&F" & I & ",B" & (I + 1) & ":B125000&F" & (I + 1) & ":F125000,0))") Then
If Range("M" & I) = "" Then
AEffacer = AEffacer & ",A" & I
Else
AEffacer = AEffacer & ",A" & (Evaluate("MATCH(B" & I & "&F" & I & ",B" & (I + 1) _
& ":B125000&F" & (I + 1) & ":F125000,0)") + I)
End If
J = J + 1
End If
I = I + 1
Loop While Range("A" & I) <> ""
If AEffacer <> "" Then
AEffacer = Right(AEffacer, Len(AEffacer) - 1)
Range(AEffacer).EntireRow.Delete
End If
Application.ScreenUpdating = True
MsgBox J & " doublons effacés"
End Sub