Remplacer une abréviation par le mot complet

Bonjour,

J'ai un petit problème.
Dans ma colonne E, j'ai une suite d'abréviations et de mots. J'aimerai remplacer les abréviations par le mot correspondant (j'ai environ 500 références).

Pour cela j'utilise une petite base avec :
-en colonne A : les abréviations à remplacer
-en colonne B : les mots correspondants.

J'utilise ce code la :

Sub Type1()

Dim J As Long
For J=1 To Range ("A"&Rows.Count).End(XlUp).Row
Range("E2:E200").Replace What:=("A"&J), Replacement:=Range("B"&J), LookAt:=xlPart,
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Next J

End Sub

Cela remplace bien mes abréviations par le mot (ex : LID est remplacé en LIDL),
Mais la marco modifie également le LID déjà contenu dans LIDL et j'obtient LIDLL.

Comment remplacer que les mots entiers et pas la suite de caractères ?

Merci d'avance !

Bonjour Loréna C et

Pourrais-ton avoir ton fichier pour essayer un autre code

ou sinon remplace "LookAt:=xlPart" par "LookAt:=xlWhole" pour voir

@+

Bonjour,

Merci pour votre aide ! Je vous transmets le fichier que j'utilise pour mes essais 😄

Re,

Voici le fichier avec un peu de code dans ta feuille et une petite fonction

@+