Private Sub Workbook_sheetActivate(ByVal Sh As Object)
Mise_en_forme Sh
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Mise_en_forme Sh
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Mise_en_forme Sh
End Sub
Private Sub Mise_en_forme(she As Object)
Dim c As Range
On Error Resume Next
For Each c In she.Range("C7:I51").SpecialCells(xlCellTypeConstants, 1)
c.Font.ColorIndex = IIf(c.Value < 0, 3, 0)
Next c
End Sub