Option Explicit
Sub TestInput() 'Test boîte INPUTBOX
Dim Réponse, k%
1 Réponse = Application.InputBox("Entrez votre donnée :", "Test ...")
If Val(Réponse) <> 0 Then
MsgBox Réponse & " est votre saisie" & vbLf & vbLf & "à noter en I2", , "Valeur saisie."
Range("I2") = Réponse: Exit Sub
End If
k = MsgBox("Voulez-vous annuler ?", vbYesNo + vbExclamation, "Confirmer")
If k <> vbYes Then MsgBox "Saisissez quelque chose, SVP !": GoTo 1
End Sub