Sub Couleur()
Dim sht As Worksheet
Dim i As Integer, ll As Integer
Dim A As Integer, B As Integer, C As Integer, D As Integer
Set sht = ActiveSheet
ll = sht.Cells(2000, 3).End(xlUp).Row
i = 2
Do While i < ll
i = i + 1
A = sht.Cells(i, 1)
B = sht.Cells(i, 2)
C = sht.Cells(i, 3)
D = sht.Cells(i, 4)
If C < B Then
sht.Cells(i, 3).Interior.ColorIndex = 4
ElseIf (C > B And B = 0) Then
sht.Cells(i, 3).Interior.ColorIndex = 36
ElseIf (C > B And B <> 0 And C < A) Then
sht.Cells(i, 3).Interior.ColorIndex = 33
ElseIf (C > B And B <> 0 And C < (B + D)) Then
sht.Cells(i, 3).Interior.ColorIndex = 40
ElseIf (C > B And B <> 0 And C > A And C > (B + D)) Then
sht.Cells(i, 3).Interior.ColorIndex = 39
End If
Loop
End Sub