Bonjour
Un truc dans ce style peut être :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Range("a1:b10")
Select Case c.Text
Case Is < 80: c.Interior.ColorIndex = 3
Case Is < 81, Is < 85: c.Interior.ColorIndex = 4
Case Is < 86, Is < 90: c.Interior.ColorIndex = 5
Case Is < 91, Is < 95: c.Interior.ColorIndex = 6
Case Is < 96, Is = 100: c.Interior.ColorIndex = 7
Case Else: c.Interior.ColorIndex = xlColorIndexNone
End Select
Next
End Sub
Salut
Hervé