Mise en forme conditionnelle d'un calendrier

Bonjour à tous,

Avec le code suivant, j'aimerais appliqué une MFC sur un calendrier, mais je n'arrive plus :

Sub MFC_Dates()

'-----------------(1) - WeekEnd
    Cells.FormatConditions.Delete
    Range("A5:H10").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
                                   "=JOURSEM(DATE(K1,MOIS(1&A3),2)>5"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    '-------------(2) - Jours fériés
    Range("A5:H10").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
                                   "=NB.SI(fériés;DATE(K1;MOIS(1&A3))>0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(2).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
    End With
    Selection.FormatConditions(2).StopIfTrue = False
    '------------ (3) - Date d'aujourd'hui
    Range("A5:H10").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
                                   "=AUJOURDHUI()"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(3).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.14996795556505
    End With
    Selection.FormatConditions(3).StopIfTrue = False
End Sub

Merci d'avance.