Mise en forme conditionnelle weekend et jours fériés

Sub calendrier()
Dim nbf As Integer 'déclare un entier
Dim f As Integer
Dim m As Integer

nbf = Sheets.Count 'compte le nombre de feuille

For f = 1 To 12 - nbf
    Sheets.Add After:=Sheets(Sheets.Count) 'ajoute une feuille après la dernière
Next

For m = 1 To 12
    Sheets(m).Name = Format(DateSerial(Year(Date), m, 1), "mmmm") 'nomme la feuille de janvier à décembre


    For j = 1 To 31
        If Month(DateSerial(Year(Date), m, j)) <> m Then 'teste si le jour fait partie du mois
                Exit For
            Else
            Sheets(m).Cells(j, 1) = DateSerial(Year(Date), m, j) 'ajoute le nombre de jour par mois
            If Weekday(DateSerial(Year(Date), m, j), vbMonday) > 5 Then 'mais en couleur sr les week end
                Sheets(m).Cells(j, 1).Interior.Color = vbGreen 'week end vert
            Else
                Sheets(m).Cells(j, 1).Interior.Color = xlNone 'jour ouvrée pas de couleur
            End If
        End If
    Next
Next