VBA : remplacer une abréviation par le mot entier

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éviation 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éviation 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 !