Bonsoir
Placez le code suivant dans la feuile concernée
Option explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("b5").Interior.Color = Range("a1").Interior.Color
Range("c9").Interior.Color = Range("a1").Interior.Color
End Sub
Même si vous changez la couleur en A1, l'action sur la toure "Entrée" excécute le code
Cordialement
Alain