Exemple pour une MFC avec plus de 3 conditions.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
For Each Cel In Target
'Adapter la/les plages.
If Not Intersect(Cel, Range("B1:B30,D1:D30")) Is Nothing Then
Select Case Cel.Value
Case 5 To 10: Cel.Interior.Color = vbRed
Case 11 To 20: Cel.Interior.Color = vbGreen
Case 21 To 30: Cel.Interior.Color = vbBlue
Case 31 To 50: Cel.Interior.Color = vbYellow
Case Else: Cel.Interior.ColorIndex = xlNone
End Select
End If
Next Cel
End Sub
Bien entendu il est possible de faire d'autres actions