Suppr. des doublons dans une colonne par rapport à une autre

Bonjour à tous,

J'ai cherché sur le forum mais je n'ai pas trouvé, alors voilà ma question :

J'ai une colonne A et une colonne B. Chacune est remplie d'une liste de mails.

Ce que je voudrais faire :

Supprimer dans la colonne B les mails qui sont déjà présents dans la colonne A.

Ca doit etre simple mais je ne sais pas programmer les formules ! Quelqu'un a t'il une solution, avec ou sans macros ?

Merci.

François

Salut François,

Voici un code qui répond à ta demande. Maintenant, quant à savoir s'il fonctionne sur ton fichier sans modification .......

Option Explicit

Sub aa()
Dim i As Integer, x As Integer

Application.ScreenUpdating = False

For i = Range("B" & Rows.Count).End(xlUp).Row To 1 Step -1
    On Error Resume Next
    x = Application.WorksheetFunction.Match(Range("B" & i), Range("A:A"), 0)

    If x = 0 Then GoTo Etiquette
    Cells(i, 2).Delete Shift:=xlUp
    x = 0

Etiquette:

Next
End Sub

Cordialement.

Salut,

Si jamais le premier code ne fonctionne pas tu peux essayer cette alternative.

Sub SearchKill()
Dim searchvalue As Range
Application.Screenupdating = False
Range("A1").Select
Do

Set searchvalue = ActiveSheet.Columns(2).Cells.Find(What:=ActiveCell.Value)

If searchvalue Is Nothing Then
ActiveCell.Offset(1, 0).Select
Else
searchvalue.Delete
End If

Loop Until IsEmpty(ActiveCell)

Range("A1").Select
Application.Screenupdating = True
End Sub

Un grand merci à vous deux, Yvouile et Funkyfoenky, vos deux solutions fonctionnent parfaitement et vont bien m'aider

Merci encore !

François