Supprimer les doublons d'une colonne en tenant compte des va

Bonjour,

Je vais essayer d'être clair.

Je souhaite supprimer les doublons d'une colonne jusqu'ici tout va bien

Sauf que je souhaite supprimer ces doublons en tenant compte de la valeur présente dans une autre colonne. Je m'explique dans la colonne A mes cellules contiennent le nom d'entités et dans la colonne B les cellules contiennent des références en nombre entier. Sauf que je souhaite effacer de la colonne B que les doublons de l'entité présente dans la colonne A et pas ceux des autres entités de la même colonne.

Exemple

DCOM 301

DCOM 301 à supprimer

DIRA 301 à ne pas supprimer car pas de doublon avec la valeur en colonne A

DIRA 315

Bonsoir Invince1,

A tester:

Sub SuppressionDoublonsColonneAB()

  Set MonDico = CreateObject("Scripting.Dictionary")
  Application.ScreenUpdating = False

  I = 2    'on commence à la ligne 2

  Do While Cells(I, "A") <> ""

      If Not MonDico.Exists(Cells(I, "A") & Cells(I, "B")) Then
             MonDico(Cells(I, "A") & Cells(I, "B")) = ""      ' on boucle sur les colonnes A & B
      I = I + 1
      Else

     Rows(I).EntireRow.Delete

   End If
  Loop
End Sub

Cordialement,

Bonjour

Merci beaucoup ça à l'air de bien fonctionner

Merci beaucoup d'avoir pris le temps de me répondre