Macro calendrier Excel

Bonjour à tous, je suis un peu perdu dans ma macro pour masquer ou non les colonnes par rapport au jours du moi (si 31 jour ok si moins masquer les colonnes) et faire attention aux années bissextiles.

Voici ma macro:

Sub Masquer_Jour()
Dim Num_Col As Long
For Num_Col = 30 To 32 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(6, Num_Col)) >= Cells(1, 1) Then
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
Range("B7:AF13").ClearContents 'Supprime le contenu dans les cellules
End Sub

elle fonctionne si je passe aux mois de février celui ci masque les colonnes à partir du 28 (Mais année bissextiles donc faux)

Mais si je repasse à un mois de 31 jours via ma liste déroulante, les colonnes sont toujours masquée

je vous joins également une capture d'écran du tableau.

Bonjour,

Un essai sinon mettre le fichier à la dispo des contributeurs

Sub Masquer_Jour()
  Dim Num_Col As Long
  For Num_Col = 28 To 33 ' Boucle sur les cellules des jours 29, 30 et 31
    If Month(Cells(6, Num_Col)) = Cells(1, 1) Then
     Columns(Num_Col).Hidden = False
    Else
     Columns(Num_Col).Hidden = True
    End If
  Next
  Range("B7:AF13").ClearContents 'Supprime le contenu dans les cellules
End Sub

Slts