Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Text = "-1" Then Target.Font.ColorIndex = 2 Else Target.Font.ColorIndex = 0
End Sub
'Ou
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' If Target.Text = "-1" Then Target.Font.ColorIndex = 2 Else Target.Font.ColorIndex = 0
'End Sub