Private Sub Worksheet_Change(ByVal Target As Range)
'suspend les procédures évènementielles de la feuille
Application.EnableEvents = False
'inscrit le code couleur dans la cellule voisine
Target.Offset(, 1).Value = Target.Interior.ColorIndex
'rétabli
Application.EnableEvents = True
End Sub