Sub test_MFC()
Dim r As Range, col
col = Array(vbYellow, vbRed, vbGreen)
Set r = Range("A1:F23"): r.Name = "STAPLE"
[STAPLE].FormatConditions.Delete
For i = 0 To 2
[STAPLE].FormatConditions.Add Type:=xlExpression, Formula1:="=EXACT(""CAP " & Chr(65 + i) & """;$A1)"
[STAPLE].FormatConditions(i + 1).Interior.Color = col(i)
Next
Voir_MFC
End Sub
Sub Voir_MFC()
[A1] = "CAP A": [A12] = "CAP B": [A20] = "CAP C"
End Sub