@+Thierry

Bonjour à tous

Wow, simple est super efficace Ti, comme toujours !

Bravo ! Du coup on peut ajouter un code de Frédérique Sigonneau pour tester si la valeur saisie est bien une date (Exemple 31/02/2003 !!)

Il suffit de remplacer ton exit du Textbox par celui là :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ArrD
ArrD = Split(TextBox1.Text, _
Application.International(xlDateSeparator))
If UBound(ArrD) <> 2 Then GoTo Fin
If Not IsDate(TextBox1.Value) Then GoTo Fin
Exit Sub
Fin:
MsgBox "date non valide"
Cancel = True
End Sub
'FS
'--

Et çà marche Impec !!!
Je vais me servir de ce truc quand je n'ai pas besoin d'un calendar !

Super Ti (avec ma triple TextBox çà fesait un peu bricolage :-)
Bonne Journée

@+Thierry