Gérer les doublons de deux colonnes

Bonjour à tous, je beug sur un truc idiot, mais je bloque vraiment

J'ai une liste de 70 adresses emails en colonne A.

J'ai une autre liste de 2500 adresses emails en colonne B

Dans la B j'ai sûr et certain les 125 emails de la colonne A.

J'ai besoin de conserver les adresses de la A, mais qu'elle soit supprimé de la B*

Quelqu'un peu m'aider?

Salut Pouns,

quelque chose comme ça ?

A+

Parfait !!!! merveilleux et merci beaucoup.

Est-ce simple à expliquer? si oui j'aimerais bcp savoir comment tu as fait?

merci par avance.

Salut Pouns,

vraiment rien de sorcier!

Private Sub CommandButton1_Click()
'
Application.ScreenUpdating = False
'
'calcul de la hauteur de la colonne A
iRow1 = Range("A" & Rows.Count).End(xlUp).Row
'
'parcourir la colonne A de haut en bas
For x = 1 To iRow1
    'stocker la valeur de la cellule A visitée
    sFlag = Cells(x, 1)
    'recalculer la hauteur de la colonne B
    iRow2 = Range("B" & Rows.Count).End(xlUp).Row
    'parcourir la colonne B de bas en haut
    For y = iRow2 To 1 Step -1
        'si la valeur stockée en A est égale à la valeur visitée en B : emails identiques...
        '... = effacer en B en faisant remonter le reste de la colonne
        If sFlag = Cells(y, 2) Then Cells(y, 2).Delete shift:=xlUp
    Next
Next
'
Application.ScreenUpdating = True
'
End Sub

A+

Merci