Saisie obligatoire InputBox

Nombre_Plein = Application.InputBox("Veuillez inscrire la somme SVP ")
        If Not IsNumeric(Nombre_Plein) Then
        MsgBox "Veuillez inscrire un nombre"
        Exit Sub
        End If
        If StrPtr(Nombre_Plein) = 0 Then
        MsgBox " Saisie Annuler"
        Exit Sub
        End if

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