VBA Excel USerform format date US FR

Bonjour,

J'ai créé un USF qui permet le remplissage d'un tableau Excel.
La txtbox qui contient la date dans le USF doit être encodée sous le format US MM/DD/YY sous peine que lors de l'inscription dans le tableau, Excel ne le reconnait pas comme une date.
Comment faire pour que je puisse l'encoder en format DD/MM/YY dans la txtBox et que lors de la retranscription dans le tableau le format date soit reconnu et respecté dans sa forme DD/MM/YY.

J'ai écrit ce code

Private Sub UserForm_Initialize()

Me.Top = 210
Me.Left = 733


Dim MonKmh As Integer
Dim MonFond As Long
Dim MaDate As Date
Dim MonAjoutGO As Integer

MaDate = Now()


txt_KmH.Value = Format(MonKmh, "# ##0")
txt_Fond.Value = Format(MonFond, "# ##0")
txt_AjoutGO.Value = Format(MonAjoutGO, "# ##0")
Txt_Date.Value = Format(MaDate, "MM/DD/YY")


End Sub

Si je change la dernière ligne par DD/MM/YY ça ne marche pas dans le tableau

Ensuite pour la retranscription des données des txtbox vers le tableau de la feuille, le code est :

Private Sub btnAjouterBase_Click()

Sheets("Listing").Activate
Range("A8").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = Txt_Date.Value
ActiveCell.Offset(0, 5).Value = cbo_Vehicule
ActiveCell.Offset(0, 7).Value = txt_KmH * 1
ActiveCell.Offset(0, 8).Value = txt_Fond * 1
ActiveCell.Offset(0, 9).Value = txt_AjoutGO * 1

Unload Me

frm_Saisie.Show

End Sub

D'avance merci.