bonjour,
pour que cela fonctionne, il ne faut pas protéger la feuille
j'ai considérer que seules les cellules à partir de la colonne 10 peuvent être colorier
si ce n'est pas la bonne colonne
Range(Cells(ligne, Application.Max(10, col - 7)), Cells(ligne, col + 7)).Interior.Color = RGB(146, 205, 220)
changer la valeur 10
dans le code des feuilles planning