Je viens de m'apercevoir que j'avais deja ce code quelque part. Desole.
If InStr(1, ActiveCell, ",") > 0 Then 'Il y a une Virgule dans la mnemonique?
lg = Application.Match(Split(ActiveCell, ",")(1), Columns(8), 0) 'on cherche a droite de la virgule
ElseIf InStr(1, ActiveCell, " ") > 0 Then 'Il y a une Espace?
lg = Application.Match(Split(ActiveCell, " ")(1), Columns(8), 0) 'on cherche a droite de l'espace.