Sub CompleterListe()
Dim listeA, listeB, d As Object, i&
listeA = [A1].CurrentRegion.Resize(, 2) 'matrice plus rapide, au moins 2 éléments
listeB = [C1].CurrentRegion.Resize(, 2) 'matrice plus rapide, au moins 2 éléments
Set d = CreateObject("Scripting.Dictionary")
'---liste sans doublon---
For i = 2 To UBound(listeA)
d(listeA(i, 1)) = ""
Next
'---suppression des éléments existants---
For i = 2 To UBound(listeB)
If d.exists(listeB(i, 1)) Then d.Remove listeB(i, 1)
Next
'---restitution---
If d.Count = 0 Then Exit Sub
[C:C].NumberFormat = "General" 'format Standard, à adapter
[C1].Offset(UBound(listeB)).Resize(d.Count) = Application.Transpose(d.keys) 'Transpose est limitée à 65536 lignes
End Sub