Salut a tous

Voula j'ai le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
For i = Range("B65536").End(xlUp).Row To 2 Step -1
        If Range("B" & i).Value = "Auto" Then
           Range("U" & i).Value = "Automotrice"
        End If
    Next i
Qui je pense devrai marcher

Mon problème est que il me faudrait réécrire ce code environ 60 fois (avec une légère différence bien sur)

Si en B j'ai "Auto" en U je veux "Automotrice"
Mais en B je peu avoir "GP" et en U avoir "Presse"
en B "KT" et en U "Fauch" ....

Je voudrais simplement savoir si il y a moyen de simplifier la saisi du code ??