Sub Saisie()
Dim Nrep
Do
Nrep = Application.InputBox("1 - Veuillez saisir un entier strictement positif SVP :", Type:=1)
Loop Until Nrep > 0 And Fix(Nrep) = Nrep
MsgBox "Vous avez saisi : " & Nrep
Do
Nrep = Application.InputBox("2 - Veuillez saisir un nombre strictement positif SVP :", Type:=1)
Loop Until Nrep > 0
MsgBox "Vous avez saisi : " & Nrep
End Sub