j'ai trouvé :)
fonct ion trim pour ceux à qui ca interesse


variable = Cells(I, OMT).Value
variable = Trim(variable)
Select Case variable