Sub SupprDoublons()
Application.ScreenUpdating = False
i = 2
While Cells(i, 1) <> ""
If Cells(i + 1, 1) = Cells(i, 1) And Cells(i + 1, 2) = Cells(i, 2) Then
Rows(i).Delete xlShiftUp
Else
i = i + 1
End If
Wend
Application.ScreenUpdating = True
End Sub