Option Explicit
Sub test()
Dim i As Long, k As Long, j As Long
Application.ScreenUpdating = False
Range("K2:N35").Interior.ColorIndex = xlNone
For i = 2 To 35
For k = 11 To 14
If Cells(i, k) = "Jury salle A" Then Cells(i, k).Interior.ColorIndex = 10
For j = 1 To 35
If Cells(i + j, k) = "Jury salle A" Then Cells(i + j, k).Interior.ColorIndex = 10
Next j
If Cells(i, k) = "Jury salle B" Then Cells(i, k).Interior.ColorIndex = 5
For j = 1 To 35
If Cells(i + j, k) = "Jury salle B" Then Cells(i + j, k).Interior.ColorIndex = 5
Next j
If Cells(i, k) = "Jury salle C" Then Cells(i, k).Interior.ColorIndex = 43
For j = 1 To 35
If Cells(i + j, k) = "Jury salle C" Then Cells(i + j, k).Interior.ColorIndex = 43
Next j
If Cells(i, k) = "Jury salle D" Then Cells(i, k).Interior.ColorIndex = 45
For j = 1 To 35
If Cells(i + j, k) = "Jury salle D" Then Cells(i + j, k).Interior.ColorIndex = 45
Next j
If Cells(i, k) = "Jury salle E" Then Cells(i, k).Interior.ColorIndex = 7
For j = 1 To 35
If Cells(i + j, k) = "Jury salle E" Then Cells(i + j, k).Interior.ColorIndex = 7
Next j
If Cells(i, k) = "Jury salle F" Then Cells(i, k).Interior.ColorIndex = 8
For j = 1 To 35
If Cells(i + j, k) = "Jury salle F" Then Cells(i + j, k).Interior.ColorIndex = 8
Next j
If Cells(i, k) = "Jury salle G" Then Cells(i, k).Interior.ColorIndex = 3
For j = 1 To 35
If Cells(i + j, k) = "Jury salle G" Then Cells(i + j, k).Interior.ColorIndex = 3
Next j
If Cells(i, k) = "Jury salle H" Then Cells(i, k).Interior.ColorIndex = 6
For j = 1 To 35
If Cells(i + j, k) = "Jury salle H" Then Cells(i + j, k).Interior.ColorIndex = 6
Next j
If Cells(i, k) = "Jury salle 5" Then Cells(i, k).Interior.ColorIndex = 15
For j = 1 To 35
If Cells(i + j, k) = "Jury salle 5" Then Cells(i + j, k).Interior.ColorIndex = 15
Next j
If Cells(i, k) = "Jury salle 6" Then Cells(i, k).Interior.ColorIndex = 17
For j = 1 To 35
If Cells(i + j, k) = "Jury salle 6" Then Cells(i + j, k).Interior.ColorIndex = 17
Next j
Next k
Next i
Application.ScreenUpdating = True
End Sub