Sub Toto()
Dim num As Long
num = Application.InputBox("Numéro du BC:", , , , , , , 1)
' Utilisation de Application.InputBox
'valeur Signification
'0 Une formule.
'1 Un nombre.
'2 Texte (une chaîne).
'4 Une valeur logique (True ou False).
'8 Une référence de cellule, sous la forme d'un objet Range.
'16 Une valeur d'erreur, telle que #N/A.
'64 Un tableau de valeurs.
End Sub