Du coup la macro est comme ça
Sub Masquer_Jour()
Dim Num_ligne As Long
For Num_ligne = 33 To 35 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(1, 33)(1, 34)(1, 35)) >= Cells(1, 7) Then
Rows(Num_ligne).Hidden = True
Else
Rows(Num_ligne).Hidden = False
End If
Next
End Sub