MFC Excel 2003

Bonjour à tous

Voici j'ai un fichier donc j'ai besoin de faire plusieurs mises en forme conditionnelles, mais malheureusement je dois remettre ce fichier enregistrer Excel 2003 et je ne peux pas mettre plus que trois MFC. J'ai donc vu sur internet une macro que je ne réussis pas à faire fonctionner, car je ne suis pas trop expérimenté, voici mon fichier, dans les colonnesB,D,F j'ai des liste déroulantes qui selon la lettre, la colonne à côté change de couleur pouvez vous m'aider pour que je puisse avoir plus de couleurs

Merci

Bonjour

Quelques adaptations

Banzai64 a écrit :

Bonjour

Quelques adaptations

un gros merci

Bonsoir,

Remplacer tout le code par:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([planning], Target) Is Nothing Then
    Target.Offset(, 1).Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

Couleurs =Janvier!$R$5:$R$10

planning =Janvier!$B$7:$O$34

J.Aimar