Sub Heure()
Dim t$
1 t = InputBox("Entrez une heure :", "Heure", t)
If t = "" Then Exit Sub 'facultatif
On Error Resume Next
If CDate(t) >= 1 Then GoTo 1
On Error GoTo 0
MsgBox "OK, à suivre..." 'pour tester
End Sub
Sub Heure()
Dim t As Variant
1 t = InputBox("Entrez une heure :", "Heure", t)
If t = "" Then Exit Sub 'facultatif
On Error Resume Next
If CDate(t) >= 1 Then GoTo 1
On Error GoTo 0
t = CDate(t)
MsgBox Format(t, "hh:mm") 'pour tester
End Sub