XL 2021 Afficher et masquer des colonnes

Bonjour à tous,

Sur un fil de discussion de ce forum, j'ai trouvé le code ci-dessous pour afficher/masquer des colonnes selon un filtre mais je ne trouve pas comment l'adapter pour afficher systématiquement les 5 premières colonnes. Un grand merci pour votre aide et ce forum pleins de ressources.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Mois = CDate("1/" & [A2])
If Not Target.Address = "$A$2" Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
For Each c In Rows(3).SpecialCells(xlCellTypeConstants, 2)
Select Case CDate("1/" & c)
Case Is = Mois
c.EntireColumn.Hidden = False
Case Else
c.EntireColumn.Hidden = True
End Select
Next
End Sub


Je