Tu n'avais pas ce genre de macro dans ta feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([planning], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
Regarde, j'ai supprimé les MFC et j'ai placé ce code dans la feuille.
J'ai remis en place deux plages en place
La plage "Couleurs" $R$3:$AA$3
La plage "Planning" $F$94:$AD$97
A adapter en fonction de tes besoins.
Cordialement