:-( Doublons De M.....

Sub Macro1()
Dim Cel As Range 'déclare la variable cel
Dim vad As String 'déclare la variable vad
Dim li As Long 'déclare la variable li
Dim x As Long 'déclare la variable x
 
li = Range("B65536").End(xlUp).Row 'définit la variable li
 
For Each Cel In Range("B1:B" & li) 'boucle 1 sur toutes les cellules éditée de la colonne B
 
    vad = Cel.Address 'définit la variable vad
 
    'boucle 2 sur toutes les cellules éditées de la colonne B de la dernière à la première
    For x = li To 1 Step -1
 
        'condition 2 : si la valeur de la cellule est la même avec une adresse différente
        If Cells(x, 2).Value = Cel.Value And Cells(x, 2).Address <> vad Then
            Cells(x, 2).EntireRow.Delete 'supprime la ligne
        End If 'fin de la condition 2
 
    Next x 'prochaine cellule de la boucle 2
 
Next Cel 'prochaine cellule de la boucle 1
End Sub

Sub Bouton1_QuandClic()
Dim data As New Collection
Dim i As Integer
Dim el
Dim present As Boolean

On Error Resume Next
For i = 1 To Range("b65536").End(xlUp).Row
    data.Add i, CStr(Cells(i, 2))
Next i
On Error GoTo 0

For i = Range("b65536").End(xlUp).Row To 1 Step -1
    present = False
    For Each el In data
        If el = i Then
            present = True
        End If
    Next el
    
    If Not present Then
        Rows(i).Delete
    End If
Next i

End Sub