Excelmacro pour rechercher et remplacer des valeurs de cellule avec des valeurs spécifiées dans une feuille différente

Question

J'ai trouvé ceci, mais cela ne fonctionne pas. Je ne sais pas ce que je fais mal.

Dans la feuille 1, je souhaite rechercher et remplacer certains termes.

Comme WH avec blanc, PK avec rose, TT avec deux tons, YE avec jaune et ainsi de suite.

J'ai une liste dans la feuille trois avec ce qu'il faut trouver dans une colonne et ce qu'il faut remplacer dans la même rangée dans la colonne suivante.

Maintenant, je veux utiliser ces valeurs et l'exécuter à travers une macro et les remplacer dans la feuille 1.

Merci,

Can any one help me correct this code or help test it. 

Sub multiFindNReplace() 
    Dim myList, myRange 
    Set myList = Sheets("sheet3").Range("A8:B10") 'two column range where find/replace pairs are 
    Set myRange = Sheets("sheet3").Range("D1:F100") 'range to be searched 
    For Each cel In myList.Columns(1).Cells 
     myRange.Replace what:=cel.Value, replacement:=cel.Offset(0, 1).Value 
    Next cel 
End Sub 

Answer 1

Je pense que la deuxième Feuil3 est juste une faute de frappe:

Set myRange = Sheets("sheet1").Range("D1:F100") plage à rechercher