Macro pour calendrier

Bonjour j'ai un calendrier mais impossible de trouver une macro pour supprimer les lignes selon les mois et l'année

Si quelqu'un a une idée

Merci

Bonjour,

Ceci:

Sub Masquer_jours()
    Dim Num_Row As Long
    Rows("35:37").Hidden = False 'on affiche toutes les lignes

    Select Case Cells(1, "B")
        Case 4, 6, 9, 11 'on masque la dernière ligne pour les mois 4,6,9,11
            Rows("37").Hidden = True
        Case 2
            If Year(Cells(2, "D")) Mod 4 = 0 Then 'si c'est une année bissextile
                Rows("36:37").Hidden = True 'on masque les 2 dernière s lignes
            Else
                Rows("35:37").Hidden = True 'sinon, on masque les 3 dernières lignes
            End If
    End Select
End Sub

Cdlt

Merci de passer en résolu si la solution vous convient.

Bonjour JPDAC, Arturo83

Commencez déjà par mettre les bonnes formules à partir de la cellule B35

=SI(MOIS(B34+1)=MOIS(B34);B34+1;"")

Ainsi, pas forcément besoin de masquer les lignes

A+

Merci pour la reponse ca fonctionne super

Re,

Si la ou les réponses vous conviennent, pensez à

Merci Bruno c'est super ca fonctionne TOPPPPPPPP

Re,

Ce n'est pas ce que je vous ai demandé

Merci de cocher le message qui vous a apporté la réponse