conversion format date ds textbox

Bonjour à toutes et à tous.

Bon je m'explique. J'ai un textbox dans lequel je rentre une date sous le format dd/mm/yyyy.
Cette date s'inscrit ensuite dans la dernière ligne non vide de la colonne A de ma feuille 1.

Le hic c'est que cette date devient sur ma feuille m/d/yyyy. Pourquoi ? mystère.
Je préçise que mes paramètres régionnaux st bien français.

Comme un exemple vaut mieux qu'un long discours, je joins mon fichier avec la macro (userform1)

Merci par avance à tous ceux et toutes celles qui voudront bien se pencher sur ce problème

Philippe

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
Dim LastLine As Long

If Not IsDate(Me.TextBox1) Then
    MsgBox 'Vous devez indiquer une date valide'
    Exit Sub
End If

    If TextBox1 = Empty Then
        UserForm4.Show
    ElseIf TextBox2 = Empty Then
        UserForm5.Show
    ElseIf TextBox3 = Empty Then
        UserForm6.Show
    Else
   
        With Sheets('Feuil1')
            .Unprotect
            LastLine = .Range('A65536').End(xlUp).Row + 1
           
            With .Range('A' & LastLine)
            .Value = CDate(TextBox1.Value)
            .NumberFormat = 'dd/mm/yyyy'
            End With
           
            .Range('B' & LastLine).Value = Month(TextBox1.Value)
            .Range('C' & LastLine).Value = Day(TextBox1.Value)
            .Range('D' & LastLine).Value = TextBox2.Value
            .Range('E' & LastLine).Value = TextBox3.Value
        End With
       
        TextBox1 = ''
        TextBox2 = ''
        TextBox3 = ''
       
    End If
 
 
End Sub

Cliquez pour agrandir...