XL 2016 remplacer une valeur par sa correspondante trouvée dans une table

Vélosolex à dit:

Bonjour,
Après de nombreuses recherches et essais, je fais appel à votre aide.
Je reçois un document où les noms d'articles sont remplacés par des codes. J'aimerais, pour une meilleure visibilité, remplacer tous ces codes par les noms correspondants. Je dispose d'une table de correspondance que j'ai copiée en dernière feuille du document exemple.
Le document réel présente plus de feuilles et le tableau de correspondance est bien plus long.
J'aimerais une macro qui aille chercher le code dans la table, pour le remplacer, dans toutes les feuilles, par le nom.

Merci

Cliquez pour agrandir...

Sub remplace()
    Dim C As Range, Sh As Worksheet
    For Each C In Feuil2.Range("a1:a" & Feuil2.Cells(Feuil2.Rows.Count, "A").End(xlUp).Row)
        For Each Sh In ThisWorkbook.Worksheets
            If Sh.Name <> "Table" Then
                Sh.Cells.Replace C, C.Offset(, 1)
            End If
        Next
    Next
    MsgBox "Remplacement terminé", vbInformation, "Information"
End Sub