Sub Coloriage()
Dim y, i, x, c As Range, objPlageCible As Range
y = Array("JANVIER", "MAI", "OCTOBRE")
Set objPlageCible = Union(Cible.Range("W12:W41"), Cible.Range("Z12:Z41"))
For Each c In objPlageCible
x = Application.Match(c.Range("A1"), y, 0)
If IsError(x) Then
c.Range("A1").Interior.Color = 12632256
Else
c.Range("A1").Interior.ColorIndex = Choose(x, 46, 10, 33)
End If
Next
End Sub