Erreur 424, objet recquis

Bonjour

N'étant pas douée sur VBA, j'essaie de faire une macro.

L'objectif est de prendre un mot dans un tableau, puis aller le trouver dans la 1ère colonne d'un autre tableau qui donne la référence de l'adresse d'une cellule (2 colonnes plus loin). Une fois cette adresse dans la variable Var2, il faut aller mettre une croix dans cette case.

Malheureusement, j'ai une erreur que je n'arrive pas à résoudre au niveau de la ligne (Set Sheets("reservoir").Range(Var2).Value = "X"). Erreur d'éxecution '424' Objet recquis.

Quelqu'un a-t-il une solution ?

Merci par avance !!!!!

Voici mon code :

Sub localisation_reservoir()

Dim FL1 As Worksheet

Dim NoCol As Integer

Dim NoLig As Long

Dim Var1 As Variant

Dim Var2 As Variant

Set FL1 = Worksheets("Accueil")

NoCol = 6

For NoLig = 5 To 15

Var1 = FL1.Cells(NoLig, NoCol).Value

Set Var2 = Sheets("zone intervention").Range("A2:A500").Find(Var1).Offset(0, 2)

Set Sheets("reservoir").Range(Var2).Value = "X"

Next

Set FL1 = Nothing

End Sub

Salut Gaille et bienvenue sur le Forum,

Essaie déjà de remplacer

Set Sheets("reservoir").Range(Var2).Value = "X"

par

Sheets("reservoir").Range(Var2).Value = "X"

Si ça ne passe toujours pas, il faudra peut-être placer ton fichier sur le Forum

Cordialement.

Ca ne fonctionne pas. J'avais déjà fait le test.

Merci quand même pour la réponse.

Bonsoir

A essayer

Sheets("reservoir").Range(Var2.Address).Value = "X"