Sub rechercheJoursFériés()
For t = 1 To 12 '12 mois de l'année
Set zone = [B8:H13].Offset(9 * Int((t - 1) / 4), 8 * (t - 1) Mod 32) 'La bonne zone où y a les tableaux de dates
For Each c In zone
If c <> "" Then
For Each d In Sheets("FériésCycleetc").[Fer]
If c = d Then 'vérification si date est un jour noté comme férié
c.Interior.ColorIndex = 3
c.FormatConditions.Delete
End If
Next
End If
Next c
Next t
End Sub