Supprimer doublon entre plusieurs colonnes

Bonjour

Une possibilité par macro :

Sub SuppressDoublons()
Dim cell As Range, plage As Range
   Set plage = ActiveSheet.Range("C2:D20") ' MODIFIER ici la plage à traiter
   'Annulation rafraichissement écran le temps du traitement
 Application.ScreenUpdating = False
    'Boucle sur la plage de cellules
    For Each cell In plage
    
        'Pour ne pas prendre en compte les cellules vides
        If cell <> "" Then
        
         ' si la valeur de la cellule existe déjà dans la colonne B elle est effacée
        If WorksheetFunction.CountIf(Range("B:B"), cell) > 0 Then Range(cell.Address) = ""
        
        End If
    Next cell

 ' Remise rafraichissement écran
  Application.ScreenUpdating = True
End Sub

Cilc droit sur le nom de l'onglet en bas et Visualiser le code pour ouvrir l'éditeur VBA

Dans le Menu : Insertion puis Module

Copier-coller la macro dans la page blanche

Modifier selon ton fichier la plage à traiter dans 2eme ligne de la macro

Fermer l'éditeur VBA

lancer la macro depuis le ruban - Développeur - Macros

Cdlmnt

Via