Bonjour!
voici ma proposition. Cas où les noms sont dans la colonne A

sub remplacer()
'
'

'
a = sheets.count
for b = 1 to a
if (not ((range ("A" & b)) = "")) then
if (range ("A" & b)) = "mot A" then
(range ("A" & b)) = "1"
end if
if (range ("A" & b)) = "mot B" then
(range ("A" & b)) = "2"
end if
if (range ("A" & b)) = "mot C" then
(range ("A" & b)) = "3"
end if
if (range ("A" & b)) = "mot D" then
(range ("A" & b)) = "4"
end if
else
goto 10
end if
next
10 end sub

Merci :)