XL 2010 VBA Compare 2 listes et copier les nom suplementaire

[SSIAP2]

Bonjour à tous je viens vous demander un peu d'aide sur mon projet

J'ai feuille dans mon classeur

la feuille BDD1 comporte une liste de nom source
la feuille Liste une même liste basé sur BDD1

je souhaiterais incrémenté les nom manquant dans la feuille liste par ceux de la feuille BDD1

je precise bien incrémenté c'est à dire ajouter à la suite des noms de la feuille Liste car je veux pas perdre ma sélection de cellule colorier

pouvez vous m'aider svp merci

 

[gosselien]

Bonjour,
tu ne parles pas des données en double: tu veux une seule occurence ou tu gardes les doublons ?

P.
Une proposition:

Option Explicit
Sub Ajouter()
'
Dim Ws1, Ws2 As Worksheet
Dim a, b, c
Dim D1, D2
Dim Last As Long
Set Ws1 = Sheets("BDD1"): Set Ws2 = Sheets("Liste")
a = Ws2.Range("a2:a" & Ws2.[A65000].End(xlUp).Row)
Ws2.[D1].Value = "Tous"
Set D1 = CreateObject("Scripting.Dictionary")
For Each c In a
   If Not D1.exists(c) Then D1.Add c, c
Next c
b = Ws1.Range("a2:a" & Ws1.[A65000].End(xlUp).Row)
Set D2 = CreateObject("Scripting.Dictionary")
For Each c In b
   If Not D1.exists(c) Then D2.Add c, c
Next c
If D2.Count = 0 Then Exit Sub
Last = Ws2.[a5000].End(xlUp).Row + 1
Ws2.Range("a" & Last).Resize(D2.Count, 1) = Application.Transpose(D2.Items)
End Sub