Bonjour,
Recopie et adapte tes valeurs ,choisis tes couleurs.
Public Sub VALEURS()
Dim PLAGE As Range
Range('a1').CurrentRegion.Select
Set PLAGE = ActiveSheet.UsedRange
For Each PLAGE In Selection
Select Case PLAGE.Value
Case Is 5000
PLAGE.Interior.ColorIndex = 22 'cyan
End Select
Next
End Sub
A +