Microsoft 365 Code Macro - suppression colonne calendrier automatique

Bonjour à tous,

J'ai un petit souci de codage pour faire marcher ma Macro.
J'ai créé un calendrier automatique sur 10 ans.
Le but de la macro est de supprimer pour tous les mois concernés et sur toutes les années les colonnes des jours en trop
(Exemple : février 2019 > supprimer les colonnes apparaissant après le 29/02 : 01/03, 02/03, 03/03 ou encore supprimer les jours après les 30 de chaque mois à 30 jours mais garder les 31 pour les mois à 31 jours).
Voici le code essayé mais j'ai une erreur dedans (ligne rouge= :

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(5, Num_Col)) >= Cells(1, 1) Then
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
Range("B6:AF13").ClearContents 'Supprime le contenu dans les cellules
End Sub

En pièce jointe mon fichier.

Quelqu'un auraot une solution svp ?

Merci !