Bouton Annuler InputBox

Bonjour Développeurs , en fait je suis bloquée :
le bouton annuler dans les inputboxs ne marche pas et si je clique dessus un message d’Erreur apparaît ( erreur d’exécution 13 ) .
HELP :(
Voilà le code que j'utilise :

Code:

---

1 2 3 4 5 6 7 8

Dim montant As Double montant = InputBox("Montant de l'investissement ?", "Montant de l'investissement :")   While montant < 1 Or montant > 999999999 MsgBox "Veuillez saisir un montant valide !", vbCritical montant = InputBox("Montant de l'investissement ?") Wend Range("E6").Value = montant

---

Bonjour,
il faut déclarer :

Code:

---

Dim montant as variant

---

Cordialement 8-)

NIIICE . THANK UUU