Sub toto()
Dim Tableau()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range([A1], [A65536].End(xlUp))
'si la donnée n'existe pas encore dans le dictionnaire
If Not MonDico.Exists(c.Value) Then
'on l'ajoute dans le dictionnaire...
MonDico.Add c.Value, c.Value
'...et dans le tableau VBA ;-)
ReDim Tableau(1 To MonDico.Count)
Tableau(MonDico.Count) = c.Value
Debug.Print MonDico.Count, Tableau(MonDico.Count)
End If
Next c
End Sub