Salut à Tous
J'ai récupéré ce script sur l'excellent site de FRED sigSub CalendrierAnnuel()
An$ = InputBox("Calendrier de l'année :", "", Year(Date))
If An = "" Then Exit Sub
Application.ScreenUpdating = False
[A:A].Clear
Range("A1").Value = DateSerial(An, 1, 1)
Range("A1").DataSeries _...