Sub SupprimerDoublons()
Dim Collec As New Collection
NbLigne = 1
With Sheets("Feuil1")
For NbLigne = 1 To .Range("B65536").End(xlUp).Row
On Error GoTo GestionDesErreurs
Toto = Range("B" & NbLigne) & Range("K" & NbLigne)
Collec.Add Toto, CStr(Toto)
On Error GoTo 0
Autre:
Next
End With
GestionDesErreurs:
If Err = 457 Then
Err = 0
Range("B" & NbLigne).EntireRow.Delete
NbLigne = NbLigne - 1
Resume Autre
End If
End Sub