XL 2010 RechercheV VBA via Offset

Bonjour Profane

A tester:
c.Value = WorksheetFunction.VLookup(c.Offset(, -1).Value, ER, 2, False)

Bonjour Pierrejean
oui j'avais trouvé entre temps sur le forum, mea culpa
j'ai avancé sur le soucis
le code fonctionne ainsi MAIS il ne fait pas ce que je veux au niveau de l offset
je m explique
ce que je voudrais c'est qu'il fasse référence à sa colonne de gauche pour le paramètre de valeur cherchée
je pensais (a tort) que (c.Offset(, -1).Value était la solution
Mais en fait la formule se colle sur la colonne "regardée"

Sub RechercheEquivalenceCode()
Set WS1 = Sheets(Feuil2.Name)
Set WS2 = Sheets(Feuil5.Name)

With WS1
For Each c In Range("EG_Calcul")
c.Value = Application.VLookup(c.Offset(, -1).Value, ER, 2, False)
Next c
End With
End Sub

Avec un fichier exemple on y verrait plus clair !!!

re Pierrejean
j'ai trouvé d'où ca vient, la déclaration en auto dans le gestionnaire de nom de certaines colonnes , ca doublonne ce qui explique l'erreur
merci Pierrejean pour ta patience
Cordialement