Private Sub Workbook_Open()
With Sheets("Feuil1")
Range("A1:A25").Select
For Each Cell In Selection
If Cell.Value > 0 Then
Cell.Interior.ColorIndex = 3
End If
If Cell.Value < 0 Then
Cell.Interior.ColorIndex = 4
End If
If Cell.Value = 0 Then
Cell.Interior.ColorIndex = xlNone
End If
Next
End With
End Sub