Textebox sous format Date

Bonjour,
Il y a plusieurs solutions. Ne sachant pas exactement ce que vous souhaitez, je vous livre deux codes vous permettant de réaliser cela :
Ce premier code se déclecnche automatiquement lors de l'évènement TextBox_Change, c'est à dire à chaque caractère que vous saisissez dans votre TextBox. Il fait en sorte qu'automatiquement se mette en 3ème et 5ème position les "/" indispensables.

Private Sub TextBox1_Change()
Dim valeur As Byte
    TextBox1.MaxLength = 10
    valeur = Len(TextBox1)
    If valeur = 2 Or valeur = 5 Then TextBox1 = TextBox1 & "/"
End Sub

Ce code permet de renvoyer dans la cellule A1 (feuille Feuil1) la valeur de la TextBox1 changée au format Date :

Sheets("Feuil1").Range("A1") = CDate(TextBox1.Value)

Ok merci beaucoup.

J'ai pris la seconde solution, ca marche!