Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim sai_h As Date
On Error GoTo erreur
sai_h = CDate(TextBox1.Value) ' Si ce n'est pas une heure : provoque une erreur
On Error GoTo 0
Exit Sub
erreur:
MsgBox "L'heure : " & TextBox1 & " Est invalide"
On Error GoTo 0
Cancel = True
End Sub