msgbox suivant la couleur de fond d'une cellule

[Tonio]

Bonjour à tous !
Je voudrais mettre en place cette procédure :


Dim ws As Worksheet
Dim cell As range

For Each ws In Worksheets

cell("M126").Select

If cell.Interior.ColorIndex = 45 Then
MsgBox ("Alerte orange sur fiche de ...")
ElseIf cell.Interior.ColorIndex = 3 Then
MsgBox ("Alerte rouge sur fiche de ...")
ElseIf cell.Interior.ColorIndex = 30 Then
MsgBox ("Alerte marron sur fiche de ...")

End If

Next

J'explique : la cellule M126 est en mise en forme conditionnelle, et je voudrais que suivant la couleur de fond de cette cellule, le message change.
Voila ce que j'ai tenté de faire sans succès.

Merci à tous !!

 

[Tonio]

Salut !!

Voila, si tu supprime la feuil4, tu verras que ça fonctionne.

Merci

 

[Pascal76]

Re

Voilà c'est modifié

Bon courage

Pascal

 

[Tonio]

1000 Merci, c'est nickel !!

Bonne journée