Sub Calendrier_VersionPlusQueDispensable()
Dim PJ, DJ, i%
Dim ChxAn: ChxAn = InputBox("Année?", "calendrier", Year(Date))
[A5:A371] = Empty
PJ = CDate("1/1/" & ChxAn): DJ = CDate("31/12/" & ChxAn)
For i = 0 To (DJ - PJ)
Cells(i + 4, 1) = StrConv(Format(DateAdd("d", i, PJ), "dddd dd mmmm yyyy"), vbProperCase)
Next
End Sub