Remplri combobox avec Dictionnaire et valeur date

Bonjour

j'ai une colonne(D) avec des date formatées en Now.
31/01/2014 14:22
31/01/2014 14:36
31/01/2014 14:42
14/02/2014 14:20
14/02/2014 14:21
14/02/2014 14:22
14/02/2014 14:22
14/02/2014 14:22

J'aimerais remplir ma combobox qu'avec les 2 dates
Dans mon cas , ce serait :
31/01/2014
14/02/2014
Voici le code :

Set Dico = CreateObject("Scripting.Dictionary")
For Each c In Feuil1.Range("d2", Feuil1.Range("d2").End(xlDown))
Val = DateValue(c.Value)
If Not Dico.Exists(Val) Then ComboDate.AddItem Val 'Dico.Add c.Value, c.Value
Next c
Pour le moment avec ce code toutes les dates sont intégrées au combobox.
Merci

Carlos