Voici une solution avec une macro que j'ai trouvé sur ce forum
Option Explicit
'Couleur manuelle
Const Noir = 1
Const Blanc = 2
Const Rouge = 3
Const Vert = 4
Const Bleu = 5
Const Jaune = 6
Const Violet = 7
Sub Change_Couleurs(Plage As Range)
Dim Cel As Range
For Each Cel In Plage
With Cel
Select Case .Value
'test en cas de cellule vide :
Case ""
.Interior.ColorIndex = Violet
.Interior.ColorIndex = Vert
Case 11 To 20
.Interior.ColorIndex = Jaune
Case 21 To 30
.Interior.ColorIndex = Rouge
Case 31 To 40
.Interior.ColorIndex = Bleu
End Select
End With
Next Cel
End Sub
Sub Test_Couleur()
Change_Couleurs Range("A1:C10")
End Sub