For i = 1 To 20
' i = est le numero de la ligne, 1 est la colonne A
If (Cells(i, 1).Value >= 100 and Cells(i, 1).Value < 500) Then
Cells(i, 1).Interior.colorindex = 33
Else
If (Cells(i, 1).Value >= 500 and Cells(i, 1).Value < 1000) Then
Cells(i, 1).Interior.colorindex = 3
Else
If (Cells(i, 1).Value >= 1000) Then
Cells(i, 1).Interior.colorindex = 36
End If
End If
End If
Next i
|