XL 2013 Convertir une date

TextBox1 = Format(TextBox1, "dd mmmm yyyy")

f.Cells(ligneEnreg, "D") = Me.TextBox14 = Format(TextBox14, "dd mmmm yyyy")

Private Sub CommandButton1_Click()
TextBox1 = Format(TextBox1, "dd mmmm yyyy")
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd mmmm yyyy")
End Sub

Private Sub TextBox1_Change()
If TextBox1 Like "####-##-##" Then TextBox1 = Format(TextBox1, "dd mmmm yyyy")
End Sub

If IsDate(TextBox14) Then
  With f.Cells(ligneEnreg, "D")
    .NumberFormat = "dd mmmm yyyy"
    .Value = CDate(TextBox14)
    .EntireColumn.AutoFit 'facultatif
    TextBox14 = .Text 'facultatif
  End With
End If