Copier une variable VBA dans une cellule XLS

Bonjour à tous,

Je souhaite copier dans une cellule EXCEL la valeur d'une variable VBA recevant la saisie d'une inputbox...

Voilà le code que j'ai entré:

Sub AfficheInbox_NumPoisson()
'InputBox Numéro du Poisson
NumPoisson = InputBox("Saisissez le N° du Poisson", "N° Poisson")
NumPoissonNum = Val(NumPoisson)
Cells("NuméroPoisson") = NumPoissonNum

La cellule que j'ai appellée NuméroPoisson doit recevoir la valeur de la variable type Integer NumPoissonNum

Mais c'est sur cette dernière ligne que ma macro plante... elle n'aime pas le = NumCoeurNum

Si quelqu'un peut m'aider la dessus je lui en serais très reconnaissant

Merci d'avance