Remplissage automatique d'une colonne

Bonjour à toute la communauté,

Je souhaite réaliser un code qui copie les valeurs des cellules d'une colonne A et les colle dans une colonne B à condition que ces valeurs ne soient pas déjà présentes dans la colonne B.

Est-ce quelqu'un pourrait m'aider, je débute en vba.

Merci d'avance

Bonjour,

à tester,

Sub test()
rw1 = Cells(Rows.Count, "A").End(xlUp).Row
rw2 = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To rw1
  If IsError(Application.Match(Cells(i, 1), Range("B:B"), 0)) Then
    Cells(rw2 + 1, 2) = Cells(i, 1)
    rw2 = Cells(Rows.Count, "B").End(xlUp).Row
  End If
Next i
End Sub
Rechercher des sujets similaires à "remplissage automatique colonne"