Format date US/EU

Bonjour,

J'ai un fichier excel en vba où les employés doivent entrer une date dans un des textbox d'un Userform. Cependant, lorsqu'on entre une date, par exemple "10/04/2013", il l'a réécrit dans la cellule en "4/10/2013". J'ai tenté moulte solution trouvée sur le net mais aucun résultat.

Le format date de la cellule est (*)jj/mm/aaaa

Voici les codes
Principal :

Private Sub Workbook_Open()

Dim save_ener As String

UserForm1.Show

save_ener = Range("E1")

If save_ener < 10000 Then

save_ener = "\0" & save_ener

Else

save_ener = "\" & save_ener

End If

Range("A6").Select

fichier = "C:\Users\bsauveni\Desktop\En attente" & save_ener & ".xls"

ActiveWorkbook.SaveAs Filename:=fichier, FileFormat:=xlExcel8

SupprimeTout

End Sub

Userform :

Private Sub annuler_Click()

Unload Me

End

End Sub

Private Sub CommandButton1_Click()

Range("E1") = Me.TextBox1.Value

Range("D2") = Me.TextBox2.Value

Range("B6") = Me.TextBox3.Value

TextBox3.Value = Format(TextBox3.Value, "dd/mm/yyyy")

Unload UserForm1

End Sub

En vous remerciant d'avance,

Brandysve