Macro en échec sur tableau de planification

Bonjour à tous,

Je créais pour mon entreprise un fichier Excel qui permet de poser ses congés sur les mois à venir, un calendrier automatique à été créé en suivant les étapes de ce site : "Exercice-Excel création d'un calendrier automatique" cependant une fois que je rentre la macro mon calendrier n'affiche pas le résultat attendu. J'ai bien sur modifié la macro pour qu'elle corresponde à mon tableau mais ça ne fonctionne toujours pas.

La Macro utilisé pour mon cas est :

Sub Masquer_Jour()
Dim Num_Col As Long
For Num_Col = 32 To 34 
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("D7:AH20").ClearContents
End Sub

J'aurais voulu pouvoir noté les jours de CP souhaité par mois et par agent tout en pouvant les visualiser d'un mois à l'autre. Savez-vous comment je peux m'y prendre ou comment corriger la macro ?

N'hésitez pas à m'indique si je me suis mal exprimé

Merci de votre aide !