Dim Quantite As Integer
On Error GoTo ErreurDonnee
Quantite = InputBox("entrez la quantité en grammes ", "Quantité ingrédient")
Exit Sub
ErreurDonnee:
If Err = 13 Then
MsgBox "vous devez taper uniquement un nombre à l'exception de tout autre type. Recommencez"
End If
On Error GoTo 0