J'ai un inputBox pour lequel la donnée à entrer doit être un integer

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim Quantite As Integer
Quantite = InputBox("entrez la quantité en grammes ","Quantité ingrédient")

Si je tape un entier pas d'erreur mais en cas de fausse manœuvre, pour tester la donnée j'ai tapé le code suivant (que je trouve dans mes bouquins)


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
On error goto ErreurDonnee
……………….
ErreurDonnee: 
 If Err = 13 then 
Msgbox "vous devez taper uniquement un nombre à l'exception de tout autre type. Recommencez"
End If 
……..
pour tester j'ai tapé dans l'input Box, le bouton OK puis le bouton Cancel puis la touche Entrée
Excel ne semble pas comprendre le Goto car j'ai toujours le message: Erreur de compilation Erreur 13 Type incompatible

J'ai copié textuellement ce qui est écrit dans les bouquins et je ne vois vraiment pas ce qui se passe.
Si quelqu'un pouvait m'éclairer je l'en remercie d'avance
Avnaim