Recherche de valeur dans un tableau

Bonsoir à tous

Je viens vers vous pour obtenir une aide sur vba

Dans le fichier exemple joint, je cherche à remplir la colonne C de la feuille 1 d'après le tableau en feuille 2.

Je souhaite uniquement une solution par macro et non par formule.

Merci d'avance pour votre aide

Isabelle

Bonsoir,

Sub CodeIsa()
    Dim d As Object, k, AA, i%, j%
    Set d = CreateObject("Scripting.Dictionary")
    AA = Worksheets("Feuil2").Range("A1:E8").Value
    For i = 2 To 8
        k = AA(i, 1)
        For j = 2 To 5
            d(k & AA(1, j)) = AA(i, j)
        Next j
    Next i
    With Worksheets("Feuil1")
        AA = .Range(.Cells(1, 1), .Cells(1, 1).End(xlDown))
        For i = 2 To UBound(AA)
            k = AA(i, 1) & .Cells(i, 2)
            AA(i, 1) = d(k)
        Next i
        AA(1, 1) = .Cells(1, 3)
        .Cells(1, 3).Resize(UBound(AA)).Value = AA
    End With
End Sub

Cordialement.