Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
on error goto erreur ' je controle les erreurs
if textbox5 = "" then error 13 ' pas de date, je provoque l'erreur
Range("D" & activecell.row) = cdate(textbox5) ' Si ce n'est pasune date provoque une erreur
goto fin
erreur:
MsgBox "La date saisie n'est pas valide ou est absente"
cancel = true ' Je retourne à la saisie de la date
fin:
on error goto 0 ' je rends le controle d'erreur au VBA
End Sub