Extraire tout sauf doublon

Avec ce code je recupere les doublons de la colonne B a A

Sub DoublonsEntre2ColonnesRapport2()
  Set d1 = CreateObject("Scripting.Dictionary")
  Set plage1 = Range("b2:b" & [a65000].End(xlUp).Row)
  Set plage2 = Range("a2:a" & [b65000].End(xlUp).Row)
  For Each c In plage2
    d1.Item(c.Value) = d1.Item(c.Value) & c.Address & "-"
  Next c
  I = 2
  For Each c In plage1
    If d1.exists(c.Value) Then
       Cells(I, "P") = c
       Cells(I, "Q") = c.Address
       Cells(I, "R") = d1.Item(c.Value)
       I = I + 1
     End If
   Next c
End Sub

comment récupérer le reste des infos (c'est a dire les non doublons) a part ?

Demandez le si je dois joindre un fichier je ferais un exemple

Bonjour

Quelques lignes sont bien nécessaires pour maitriser l'ensemble de ton tableau

Merci

FINDRH

Voila j'upload un exemple

Bonjour,

Pour récupérer les non- doublons de la deuxième colonne tu pourrais faire un test de présence de B dans la colonne C

=sierreur( equiv ( valeurcherchée ; colonne A ; 0);"err")

1) tu parcours ensuite la colonne C et chaque fois que tu retrouves "err" tu en copie le contenu dans la première cellule vide de la colonne A

2) tu tries le tout avec la colonne C, les "err" sont regroupés==> copier coller ....

Transmis à toutes fins utiles

Cordialement

FINDRH

J'ai trouver une solution qui me convient , copier la colonne dans une autre et supprimer les doublon a l'interieur de celle ci , sujet résolu

Deux post que je fait en me disant je trouve pas de solutions alors que c'est tout bete....faut que j'arrete de boire ou peut etre que je commence....