Sub couleur()
Dim i As Long, derlig As Long
derlig = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To derlig
Select Case Cells(i, 1).Value
Case 0.625 To 0.999305556
Cells(i, 1).Interior.ColorIndex = 6
Case 1 To 1.999305556
Cells(i, 1).Interior.ColorIndex = 45
Case Is > 1.999305556
Cells(i, 1).Interior.ColorIndex = 3
Case Else
Cells(i, 1).Interior.ColorIndex = 0
End Select
Next
End Sub