Bonjour

ceci fonctionne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Columns("I:I").Select
    Range("I2").Activate
 
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""Validé Sans Réserves"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -11489280
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
Par contre, je sais pas trop comment mettre un éventuel caractère joker pour que la couleur puisse se mettre aussi dans les cellule ou il y aurait " Ceci est Validé Sans Réserves"

Merci !