Masquer l'ensemble des mois précédents la date du jour

Bonjour,

Dans le fichier joint, j'aimerai à son ouverture, masquer par rapport au mois de la date du jour :

tous les mois précédents, sauf ceux des trois mois précédents.

Exemple : nous sommes en juillet on conservera Avril, mai, juin, juillet ... et tous ceux qui suivent.

Merci pour votre aide.

Salut,

Avec un code dans ce style

Private Sub Workbook_Open()
    Dim r As Range
    Set r = Range("K1:AU1")
    Dim c As Range
    With Feuil1
        For Each c In r

            If Month(c) < Month(Date) - 3 Or Year(c) <> Year(Date) Then
                c.EntireColumn.Hidden = True
            End If

        Next c
    End With
End Sub

Bonjour,

Cela répond parfaitement à mon besoin.

Merci à vous, pour votre aide.