génération calendrier

Sub Calendrier()
Dim X&, i&, cal As Range, cell As Range
'le petit plus
ANNEE = InputBox("Choisir l'année du calendrier?", "Calendrier", Year(Date))
FD = CDate("1/1/" & ANNEE): [B4] = FD: [B4:M4].DataSeries 1, 3, 3, 1
For i = 1 To 12
X = Day(DateSerial(Year(Cells(4, i + 1)), Month(Cells(4, i + 1)) + 1, 0))
Cells(4, i + 1).Resize(X).DataSeries 2, 3, 1, 1
Next
'fin du petit plus
'///////////////////////////
Set cal = [B4].CurrentRegion
cal.ClearComments
For Each cell In cal
If cell.Text <> "" Then
If Weekday(cell.Value2, vbMonday) = 1 Then
cell.AddComment "Semaine " & NoSem(cell.Value)
cell.Comment.Shape.TextFrame.AutoSize = True
End If
End If
Next cell
End Sub

Sub Calendrier_BIS()
Dim X&, i&, cal As Range, cell As Range
'le petit plus
Application.ScreenUpdating = False
Cells.Clear
ANNEE = InputBox("Choisir l'année du calendrier?", "Calendrier", Year(Date))
FD = CDate("1/1/" & ANNEE): [B4] = FD
[B4:F4].AutoFill Destination:=Range("B4:BE4"), Type:=xlFillMonths
For i = 2 To 57 Step 5
X = Day(DateSerial(Year(Cells(4, i)), Month(Cells(4, i)) + 1, 0))
Cells(4, i).Resize(X).DataSeries 2, 3, 1, 1
Next
'fin du petit plus
'///////////////////////////
Set cal = [B4:BE34]
cal.ClearComments
For Each cell In cal
If cell.Text <> "" Then
If Weekday(cell.Value2, vbMonday) = 1 Then
cell.AddComment "Semaine " & NoSem(cell.Value)
cell.Comment.Shape.TextFrame.AutoSize = True
End If
End If
Next cell
End Sub