Faire afficher toutes les dates de l'année

Re : Faire afficher toutes les dates de l'année

salut, un autre aussi (merci 'Alain Vallon et fs, mpfe) avec wekk end et fériès en couleur.
Code a copier dans une module :Sub CalendrierAnnuel()
'Alain Vallon et fs, mpfe
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 _
xlColumns, xlDataSeriesLinear, xlDay, 1, DateSerial(An, 12, 31)
Range(Range("A1"), Cells(Rows.Count, 1).End(xlUp)).Select
Paques$ = _
"FRANC(DATE(ANNEE(A1);4;JOUR(MINUTE(ANNEE(A1)/38)/2+55))/7😉*7-6"
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(" & _
"A1=DATE(ANNEE(A1);1;1);" & _
Paques & "+1=A1;" & _
"A1=DATE(ANNEE(A1);5;1);" & _
"A1=DATE(ANNEE(A1);5;8);" & _
Paques & "+39=A1;" & _
Paques & "+50=A1;" & _
"A1=DATE(ANNEE(A1);7;14);" & _
"A1=DATE(ANNEE(A1);8;15);" & _
"A1=DATE(ANNEE(A1);11;1);" & _
"A1=DATE(ANNEE(A1);11;11);" & _
"A1=DATE(ANNEE(A1);12;25)" & _
")"
.FormatConditions(1).Interior.ColorIndex = 34
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=JOURSEM(A1;2)>5"
.FormatConditions(2).Interior.ColorIndex = 27
.NumberFormatLocal = "jjjj jj/mm/aaaa"
.HorizontalAlignment = xlLeft
End With
ActiveCell.Select
End Sub
Amicallement