Remplacer des valeurs dans une feuille

Bonjour à vous,

Encore moi qui suis en ce moment en plein refonte de nombreux fichiers Excel.

Dans les différentes bases de données que je réuni un de mes dénominateurs communs est le nom de mon fournisseur. Mais selon les systèmes leur nom varie.

Je souhaite donc sur la base d'une liste de correspondance mettre à jour toute la base de donnée (feuille Excel).

J'ai ce morceau de code ci-dessous que je pourrais répéter pour chaque nombre de fournisseurs mais je préférerai avoir un code unique qui va chercher dans une table de correspondance que je porte dans une feuille Excel.

Dites-moi si c'est clair, si vous souhaitez que je mette un fichier d'exemple ou autre.

Sub Macro1()
'
' Macro1 Macro
'
    Cells.Replace What:="fournisseur", Replacement:="fournisseur OK", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub

Encore merci de votre aide, vous ne savez pas comme vous avez changé ma vie parfois

Bonjour,

Voici un exemple avec une table de correspondance, cliquez sur le bouton "Remplacer fournisseurs". il ne vous plus qu'à l'adapter à votre fichier.

Cdlt