Afficher/Masquer des lignes entière

Bonjour,

Je bloque sur une macro et j'ai beau tourner ca dans tous les sens je ne trouve pas le problème.
J'ai un calendrier/planning automatique avec WE et jours fériés et je souhaite que pour les mois ayant moins de 31 jours, les lignes en trop se masquent puis reviennent pour les mois à 31 jours.

J'avais déjà fait un planning du genre avec les dates horizontales et les noms verticaux.
Et tout fonctionnait.
Pour des raisons pratique je dois inverser sur le nouveau planning (dates verticales) et là...ca coince.

Voici mon code

Sub MasquerJour()
Dim NumLine As Long
    For NumLine = 39 To 42
        If Month(Cells(NumLine, 1)) <> Cells(1, 77) Then
            Rows(NumLine).Hidden = True
        Else
            Rows(NumLine).Hidden = False
        End If
    Next
End Sub

Mes lignes 40 à 42 contiennent les jours 28, 29, 30, 31.
La Cellule (1, 77) est un panneau déroulant ou on choisi le mois, c'est la cellule BY1 et sur laquelle ma macro est affectée.

En l'état, mes lignes se masquent bien quand je change de mois mais pour tous les mois, même ceux qui ont 30 ou 31 jours, les quatre lignes se masquent.
Donc, même si c'est logique elle ne réapparaissent pas lorsque que je sélectionne un mois à 31jours.

Vu que ca fait deux jours que je me prend la têtes dessus je me dis que c'est peut etre juste un truc tout con que je ne vois plus car trop la tête dedans mais si vous avez besoin de screen ou meme du fichier dites les moi.

Merci

PS :
Je vous rajoute l'ancien code du planning horizontale qui fonctionne très bien.

Sub Masquer_Jour()
Dim NumCol As Long
   For NumCol = 30 To 32
      If Month(Cells(6, NumCol)) <> Cells(1, 1) Then
         Columns(NumCol).Hidden = True
      Else
         Columns(NumCol).Hidden = False
     End If
End Sub