Bonjour,
Pas besoin de macro pour faire ça, on peut passer par une mise en forme conditionnelle utilisant une formule, la formule est la suivante:
=SIERREUR(RECHERCHEV(INDIRECT(ADRESSE(LIGNE(B6);COLONNE($C$6)+4*ARRONDI.INF((COLONNE(B6)-2)/4;0)));$P$3:$P$9;1;FAUX);"ERR")<>"ERR"
Voici le fichier en retour: