Sub ConditionCouleur()
Dim S As Worksheet
Dim R As Range
For Each S In Worksheets
For Each R In S.UsedRange
If R.Interior.ColorIndex = 40 Then
With R.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
.PatternTintAndShade = 0
End With
End If
Next
Next
End Sub