Calendrier

Bonsoir , j'ai ecris le code suivant qui permet de créer un calendrier de 12 mois il marche bien mais est t il suffisamment optimisé ? Merci à vous

Function calendrier(x As Date, y As Integer) As Variant

compteur = compteur + 1  'variable publique

 If Month(x) = Month(x + 1) Then
   Cells(compteur, colonne + 1) = x  'colonne est une variable publique
       x = x + 1
        Else
   Cells(compteur, colonne + 1) = x
   colonne = colonne + 1
   compteur = 0
      x = x + 1
 End If

 If Year(x) > y Then GoTo 1

 calendrier x, y
1:

 End Function
 'partie test: 
 Sub test_calendrier()
 Dim année As Integer
 année = CInt(InputBox("saisir une année"))
 Call calendrier(DateSerial(année, 1, 1), année)
 End Sub

Bonjour,

Une proposition ci-jointe accompagnée de mes meilleurs vœux

Un grand merci Oxydum et meilleurs vœux également.