Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0
Dim c As Range
Set PLAGE = Range("a1").CurrentRegion
PLAGE.Interior.ColorIndex = xlNone
If Not Intersect(Target, PLAGE) Is Nothing Then
For Each c In PLAGE
If c.Value > 10 Then c.Interior.ColorIndex = 4
If c.Value <= 10 Then c.Interior.ColorIndex = 3
If c.Value = "" Then c.Interior.ColorIndex = xlNone
Next
End If
Application.ScreenUpdating = -1
End Sub