dim x as range
for each x in range 'a1:a30' 'dimension de la plage à adapter
if x.value='code1' then
x.offset(0,1)='produit1'
Elseif x.value='code2' then
x.offset(0,1)='produit2'
...
...
...
Elsifif x.value='code5' then
x.offset(0,1)='produit5'
End If
Next x