Sub CalendrierEncolonne_BIS()
Columns(1).Cells.Clear
debut = InputBox("Année de début?", "Calendrier", 1996)
fin = InputBox("Année de fin?", "Calendrier", debut + 1)
nbligne = DateValue("31/12/" & fin) - DateValue("1/1/" & debut)
Range("A1") = DateValue("1/1/" & debut)
Range("A1:A" & nbligne + 1).DataSeries 2, 3, 1, 1, CLng(DateValue("31/12/" & fin)), False
End Sub