Sub essai_application_inputbox()
Dim Nb As String
Nb = Application.InputBox("Un nombre de 4 chiffres, SVP", Type:=1)
If Nb = Empty Then
Exit Sub
Else
MsgBox "poursuite du code..."
End If
'Les types de valeurs peuvent être les suivants :
'0: Formule
'1: Nombre
'2: Texte
'4: Valeur logique(True Or False)
'8: Référence de cellule
'16: Valeur d’erreur
'64: Tableau de valeurs
End Sub