Re : Boucle for
bonjour,
remplaces les lignes :
If c.Offset(0, 28).Value = "vert" Then XXXXXXXXXXXXX
If c.Offset(0, 28).Value = "rouge" Then XXXXXXXXXXXX
par
If c.Offset(0, 28).Value = "vert" or c.Offset(0, 28).Value = "rouge" Then goto suite
et avant ton next c
tu ajoutes...