Pb méthode INPUTBOX

Bonjour,
j'essaie de récupérer dans une cellule la valeur que je demande à l'utilisateur de saisir mais j'ai certainement un petit problème de code
Pouvez vous m'aider ???
Merci

Code:

---

1 2 3 4 5 6 7

Sub Macro1() Dim mavaleur As Range Set mavaleur = Application.InputBox(prompt:="Saisir la valeur Objectif:", Title:="Saisie de données", Left:=3, Top:=-80) 'calcul l'objectif pour l'année souhaitée ActiveCell.FormulaR1C1 = "=(mavaleur*R[-4]C[1])+R[-4]C[1]" Range("F21").Select End Sub

---

Code:

---

1 2	Set mavaleur = Application.InputBox(prompt:="Saisir la valeur Objectif:", _ Title:="Saisie de données", Left:=3, Top:=-80, Type:=8)

---

comme ça, ça ira mieux ;)