Sub chat()
Dim CEL As Range 'déclare la variable CEL (CELlule)
For Each CEL In ActiveSheet.UsedRange 'boucle sur toutes les cellules CEL de la plage éditée de l'onglet actif
'si la couleur de la cellule est 49407 (couleur à dapter car des "orange" il y en a plein...) écrit "chat" dans la cellule
If CEL.Interior.Color = 49407 Then CEL.Value = "chat"
Next CEL 'prochaine cellule de la boucle
End Sub
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
For Each cell In Range("A1:G40")
If cell.Interior.ColorIndex = 45 Then
cell.Value = "chat"
End If
Next cell
End Sub