Variable dans zone de recherche

Bonjour à tous

Je souhaiterais rendre variable la zone de recherche du code ci-dessous, mais je n’arrive pas créer la ligne recherche, toujours une erreur.

  Target.Offset(0, 1).Formula = "=VLOOKUP(F9,Feuil1! " & Col & Lig & ":" & RecupCol & RecupLig & " ,2,0)"

Merci pour vos réponses bonne journée.

 Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("F9")) Is Nothing Then

  Col = C
  Lig = 2
  RecupCol = D
  RecupLig = 7

  'Target.Offset(0, 1).Formula = "=VLOOKUP(F9,Feuil1!C2:D7,2,0)"

  Target.Offset(0, 1).Formula = "=VLOOKUP(F9,Feuil1! " & Col & Lig & ":" & RecupCol & RecupLig & " ,2,0)"
  Target.Offset(0, 1).Value = Target.Offset(0, 1).Value

  End If
  End Sub

Bonjour,

Et ainsi :

...
...
Col = "C"
      Lig = 2
      RecupCol = "D"
      RecupLig = 7
...
...

Bon W-E

Merci cousinhub ça marche.

Forum toujours au TOP, félicitation à tous.

Bon week-end