Bonjour,
ce que tu n'as pas compris c'est qu'une InputBox revoit toujours une chaine.
Tu tapes peut-être 76 mais elle te retourne la chaine "76".
Maintenant tu peux contrôler que ta chaine ne représente pas un nombre :
Dim rep As String
rep = InputBox("test")
If IsNumeric(rep) Then
MsgBox "c'est un nombre"
ElseIf IsDate(rep) Then
MsgBox "C'est une date"
Else
MsgBox "ok, ce n'est pas un nombre"
End If
mais attention qu'une date non valide comme 29/02/2019 te dira "ok, ce n'est pas un nombre" (c'est une chaine)
Et que 04/25/2019 qui n'est pas une date valide pour nous l'est pour anglo-saxons
eric