vba recherchev à faire

Bonjour,
je voulais faire une rechercheV mais le coder en vba pour une macro globale sur mon fichier. Voilà ce que j'ai fait. J'ai juste un problème sur comment l'appliquer à la cellule. Je sais que c'est la ligne en gras qui va pas mais je ne comprends pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Bouton7_Clic() Dim Formule As String Dim R As Integer Dim Model As String FinalRow = Sheets("Feuil2").Cells(Application.Rows.Count, 4).End(xlUp).Row For R = 9 To FinalRow Model = Sheets("Feuil2").Cells(R, 4).Value Sheets("Feuil2").ActiveCell.Offset(R, 1).Value = "=VLOOKUP(model,Feuil1!$A:$P,2,FALSE)" Next R End Sub

---

Code:

---

Sheets("Feuil2").ActiveCell.Offset(R, 1).Formula= "=VLOOKUP(" & model & ",Feuil1!$A:$P,2,FALSE)"

---

au lieu de .value tu mets .formula et tu fais sortir ta variable model des ""

désolé ca ne marche pas, ca m'affiche:
propriété ou méthode non gérée par cet objet

2ème problème dans model

Code:

---

Model = Sheets("Feuil2").Cells(R, 4).address

---