compléter un code

Re bonjour,

J'ai trouvé ce code :

Sub Calendrier()
'Alain Vallon, mpfe
varAn = Val(InputBox("Année ?", "CALENDRIER"))
If varAn = 0 Then Exit Sub 'clic sur touche Annuler ou la croix
X = DateSerial(varAn, 1, 1)
Y = DateValue("31 décembre " & varAn)
j = 1
For i = 0 To Y - X
If Weekday(X + i, 2) < 6 Then
Range("A" & j, "B" & j) = X + i
j = j + 1
End If
Next
Columns("A:A").NumberFormat = "dddd "
Columns("A:B").EntireColumn.AutoFit 'pour fignoler
End Sub

qui correspond à ce que je souhaite, sauf que j'aimerais y incorporer dans une colonne précédente pour chanque semaines, le numéro de semaine.
Ainsi qu'à chaque début de mois, le mois concerné.

Comment faire ??

Merci d'avance.

Bertrand.