Remplacements multiples d'après le contenu des 1ères colonnes

[Ctrl-Alt-Suppr]

Bonjour à tous.

Je ne maîtrise pas du tout Excel, et n'arrive pas à m'en sortir avec les éléments trouvés sur le forum / sur la toile.
Voilà pourquoi, cher Père Noxcel-Donwload, j'aimerai que tu m'apportes un beau tableau qui fonctionne.
(j'ai été sage cette année)


Colonne 1 :
une liste de codes (du genre 100 101 102 103 ...)
avec possibilité d'en (r)ajouter si besoin
actuellement, j'en ai une cinquantaine

Colonne 2 :
la liste des codes modifiés / rectifiés (exemple 100_OK 101_OK .. etc.)

Colonne 3 :
un bouton pour lancer la macro

Colonne 4 :
j'y collerai (en provenance d'un fichier .txt) tout une liste de codes bruts

Colonnes 5 :
là où j'aimerai que s'affiche les codes de la colonne 4, mais rectifiés d'après les indications des colonnes 1→2

Sub TXT()
Set anciencode = ActiveCell.CurrentRegion.Columns(1)
Set nouveaucode = ActiveCell.CurrentRegion.Columns(2)
For Each mot In anciencode
For Each phrase In nouveaucode
phrase.Replace what:=mot, replacement:=mot.Offset(0, 1)
Next
Next
End Sub

Ci-dessus, un bout de code de test, mais je m'y perds et cela ne fonctionne pas.
L'idéal, si possible, serait une macro avec l'équivalent de l'option " Totalité du contenu de la cellule "

Par avance, merci.