Calendrier selon le mois d'une cellule et l'année dans une autre

Option Explicit
'http://www.excel-pratique.com/fr/astuces_vba/format_dates.php
Private Sub CommandButton1_Click()
Range("A1") = Year(Date)
Range("B1") = Format(Date, "mmmm")
Range("C1") = Format(Date, "dddd")
Range("D1") = Format(Date, "dd")
IsWeekend (Date)
End Sub
Public Function IsWeekend(InputDate As Date) As Boolean
    Select Case Weekday(InputDate)
        Case vbSaturday, vbSunday
            IsWeekend = True
            Range("E1") = "Férié"
        Case Else
            IsWeekend = False
            Range("E1") = "Ouvré"
    End Select
End Function