Boucles très lentes !!! bizarre...

Sub JoursFériés()

Dim Listeferies As Date
Dim i As Long
Dim j As Long

[I] Ici tu t'es trompé c'est a la fin qu'il faut le remettre [/I]
    Application.ScreenUpdating = True

[I] c'est ici que cela ralenti enormement parceque a chaque tour de boucle tu
vas récuperer la valeur d'une cellules ListeFeries pour ensuite la comparées
avec l'une des cellules de la ligne 12[/I]

    For i = 27 To Range("F65536").End(xlUp)
        Listeferies = Cells(i, 6).Value
        For j = 10 To 19
            If Cells(12, j) = Listeferies Then
'la selection de la plage est inutile est ralenti 
                Range(Cells(12, j), Cells(15, j)).Select
                With Range(Cells(12, j), Cells(15, j))
                    With Selection.Interior
                        .ColorIndex = 0
                        .Pattern = xlLightUp
                        .PatternColorIndex = xlAutomatic
                    End With
                End With

            End If
        Next
    Next
[I] c'est au début[/I] 
    Application.ScreenUpdating = False
End Sub

Option Explicit
Sub JoursFériés()

Dim Listeferies As Range
Dim i As Long
Dim j As Long

    Application.ScreenUpdating = False

[I]Je charge d'un coup les Fériés[/I]
    Set Listeferies = Feuil3.Range("F27", Range("F65536").End(xlUp)).Rows
[I]La je travail avec les données en mémoire plutot que directement sur la feuille alors ça va plus vite.[/I]
    For i = 1 To Listeferies.Count
        For j = 10 To 19
            If Cells(12, j) = Listeferies(i) Then
                With Range(Cells(12, j), Cells(15, j))
[I]ici pas de select[/I]
                    With .Interior
                        .ColorIndex = 0
                        .Pattern = xlLightUp
                        .PatternColorIndex = xlAutomatic
                    End With
                End With
            End If
        Next
    Next i
    Application.ScreenUpdating = True
End Sub