Sub testB()
Dim vCellule As Range
Application.ScreenUpdating = False
jy = Array("A", "B", "C", "D", "E", "F", "G", "H", "5", "6")
Cl = Array(10, 5, 43, 45, 7, 8, 3, 6, 15, 17)
On Error Resume Next
Range("K2:N35").Interior.ColorIndex = xlNone
For Each vCellule In Range("K2:N35")
For A = LBound(jy) To UBound(jy)
If vCellule = "Jury salle " & jy(A) Then vCellule.Interior.ColorIndex = Cl(A)
Next A
Next
Application.ScreenUpdating = True
End Sub