Problème de date

Lorsque je saisi dans un DTPicker la date, quelle que soit la formule, le résultat est différent de celui escompté

1 Range("Fin_compte").Offset(1, 0) = JourAnnée
2 Range("Fin_compte").Offset(1, 0) = Format(JourAnnée, "dd/mm/yyyy")
3 Range("Fin_compte").Offset(1, 0) = CStr(JourAnnée)

exemple :

JourAnnée = "01/10/2012"
La date validée en 'Range("Fin_compte").Offset(1, 0)' est "10/01/2012"

Je n'arrive pas à comprendre pourquoi j'ai une inversion du jour et du mois en sachant que j'ai défini

Dim JourAnnée As String

Merci de me renseigner