Bonjour JBarbe,
J'ai finalement essayé la version suivante, en ne séparant pas les rotations :
If Left(Sheets("Detail").Cells(X, 5), 1) = 1 Then ....
If Right(Sheets("Detail").Cells(X, 5), 1) = "M" Then ...
La prochaine étape est de voire s'il y'a moyen de faire une boucle pour ne pas avoir à...