Date au mauvais format

Bonjour ;

J’ai des textbox contenant une date au bon format, mais quand je range dans la feuille le mois et le jour sont inversés dans le tableau. Je ne sais pas quel code vba ajouter pour que la date reste normale, pouvez-vous m’aider. Je joins un fichier

https://www.cjoint.com/data3/MIcqE5uNOvE_Essai-date-2.xlsm

Private Sub Valider_Click()
Dim L As Integer
Dim T As Double
Application.ScreenUpdating = False
L = Sheets("Donnéesorties").Range("a65536").End(xlUp).Row + 1
Range("A" & L).Value = CDate(TextBox20.Value)
'Permet de calculer la différence entre la date du début du produit VTT et la date du jour
Me.TextBox23 = DateDiff("m", CDate(Me.TextBox21), CDate(Me.TextBox22))
'************************************************************************************************
Range("B" & L).Value = TextBox21.Value 'Date de début
Range("C" & L).Value = TextBox22.Value 'Date du jour
Range("D" & L).Value = TextBox23.Value 'Durée
Unload Me
Sheets("Donnéesorties").Select
Application.ScreenUpdating = True
End Sub