Salut thomas, le forum,
Dans ton cas, tu peux deplacer ton code, du moins ce que j'en vois, dans ThisWorkBook.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim c As Range
For Each c In Target
Select Case c
Case 'G'
c.Interior.ColorIndex = 10
Case ''
c.Interior.ColorIndex = 0
End Select
Next
End Sub
Bonne soiree
Olivier