Recherche de valeur dans tableau

Bonjour,

J'ai un tableau (utiliser en tableau croisée dynamique pour d'autre utilisation)

Je souhaiterais grâce à mon code VBA écrire la valeur 0100 dans la colonne REP à chaque fois que la valeur "AS_097860" est trouvé dans la colonne "REF"

Nom de la feuille: Nomenclature

Nom du Tableau: Tab_Nomenclature

J'ai bien ce bout de code mais je recherche plus un code utilisant le tableau (ActiveCell.Pivot...):

Sub MySearch()
Dim c As Range
Dim ans As String
ans = "AS_097860"
'ans = Cells(1, 1).Value

For Each c In Range("I:I")
'For Each c In Range("REF")
If c.Value = ans Then
'Debug.Print c.Range
'c.Select: Exit Sub
Next
End Sub

Bonjour, et vous allez faire une macro avec toutes les autres références ?

Pourquoi ne pas simplement utiliser une formule dans la colonne REP ( =RechercheV ) pour aller chercher la valeur dans votre tableau de correspondance ?

C'est parce que ma valeur à remplir est simplifié (ici 0100) mais je la récupère via macro depuis un nom de répertoire windows, de même pour ma valeur (AS_097860)

Avec:

searchAndWrite Sheets("RepAuto").Range("A" & i).Value, Sheets("RepAuto").Range("B" & i)

j'ai réussi à faire ce que je souhaitais.