Bonjour,
Bien... et pour encore être plus certain du résultat...
Select case Ucase(trim(Cells(I, OMT)))
Case "TEST1"

Case "TEST2"

end select
Tout tes tests doivent êtres en majuscules, ça évite les erreurs qu'il pourrait y avoir entre majuscules et minuscules.
A+
--
L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)