Bonjour,
un changement de couleur ne déclenche aucun évènement détectable.
Il faudrait au moins sélectionner une autre cellule après le changement de couleur.
Ex sur B2 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static couleur As Long
If [B2].Interior.ColorIndex <> couleur Then
couleur = [B2].Interior.ColorIndex
MsgBox "La couleur de B2 a changé"
End If
End Sub
Le 1er clic n'importe où affiche le msgbox. C'est normal, la variable couleur n'est pas encore initialisée.
Si ça ne convient pas tu peux aussi t'amuser avec la méthode OnTime pour scruter toutes les secondes mais bon, ça ferait un peu usine à gaz pour pas grand chose. Ca sera sans moi Voir l'exemple de l'aide...
eric