Vous pouvez employer le manuscrit que je vous ai donné plus tôt pour faire tous les deux immédiatement.
Pour i=5 à la gamme (« F65536 »). Extrémité (xlUp). Rangée
si parti (cellules (I, 6).value, 5)<> « M0000 » puis
si droit (cellules (I, 3).value, len (cellules (I, 6).value))<>cellules (I, 6) puis
cellules (I, 3).interior.colorindex=3
endif
autrement
si parti (cellules (I, 3).value, len (cellules (I, 4).value))<>cellules (I, 3) puis
cellules (I, 3).interior.colorindex=3
endif
si cellules (I, "" 4).value= alors
cellules (I, 4).interior.colorindex=3
endif
endif
après