Modifier couleur des cellules sur plusieurs lignes, valeur comprise entre ..

Bonjour BrunoM45,

Merci une nouvelle de ton aide, pour information enregistrer une Macro en modifiant la MFC, ne fonctionne pas j'ai du les supprimer et les créer de nouveau pour l'enregistrement, afin d'avoir une réponse claire pour les utilisateur cherchant la formule voici la macro

Sub Color()

Sheets("STATS").Select

Range("B12:G12,B17:G17,B22:G22,B27:G27").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B12<=0,49"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16727809
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("B12:G12,B17:G17,B22:G22,B27:G27").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B12>=0,5"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -11489280
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

Range("B12:G12,B17:G17,B22:G22,B27:G27").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B12<=0,24"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False


End Sub

Bonne journée