Problème de copie des dates sans doublons

[INFINITY100]

Bonjour à tous

Voila j'ai sous la main une macro qui me copie les données de la colonne A de la feuille 1 vers la même colonne (A) de la feuille 2 sans les doublons jusque là tout fonctionne bien mais lorsqu'il s'agit des dates le problème se pose car il me fait la copie en format US donc ma question est que ajouté à la macro ci-dessous pour avoir la copie en format FR (français)

Voici mon code :

Sub actualise()
Set dico = CreateObject("Scripting.Dictionary")
With Feuil2
For Each c In .Range(.[A1], .[a65000].End(xlUp))
If Not dico.Exists(c.Value) And c.Value <> "" Then _
dico.Add c.Value, c.Value
Next c
End With
With Feuil1
For Each c In .Range(.[A1], .[a65000].End(xlUp))
If Not dico.Exists(c.Value) And c.Value <> "" Then _
dico.Add c.Value, c.Value
Next c
End With
Feuil2.[A1].Resize(dico.Count, 1) = Application.Transpose(dico.items)
End Sub

Je joins le fichier pour être plus claire

Merci à vous tous

Cordialement

 

[laetitia90]

bonjour INFINITY , le forum

avec ton code & value 2

Set dico = CreateObject("Scripting.Dictionary")
With Feuil1
For Each c In .Range(.[A1], .[a65000].End(xlUp))
If Not dico.Exists(c.Value) And c.Value <> "" Then _
dico.Add c.Value2, c.Value2
Next c
End With
Feuil2.[A1].Resize(dico.Count, 1) = Application.Transpose(dico.items)

 

[INFINITY100]

Merci beaucou laetitia90
c'est très très gentil
1000 mercis