XL 2013 Planning de Vacances

Sub MontrerMois()
    ' Les boutons s'appellent Boutonxx avec xx le N° du mois concerné
    Dim N%, ColMois, Début%, Fin%
    Application.ScreenUpdating = False
    N = Val(Right(Application.Caller, 2))
    ColMois = Array(0, 10, 41, 69, 100, 130, 162, 191, 222, 253, 283, 314, 344, 375)
    Range(Cells(1, 10), Cells(1, 400)).EntireColumn.Hidden = False ' Démasque tout
    If N = 1 Then
        Range(Cells(1, 41), Cells(1, 400)).EntireColumn.Hidden = True
    Else
        Début = ColMois(N) - 1
        Fin = ColMois(N + 1)
        Range(Cells(1, 10), Cells(1, Début)).EntireColumn.Hidden = True
        Range(Cells(1, Fin), Cells(1, 400)).EntireColumn.Hidden = True
    End If
End Sub

Sub MontrerMois()
    ' Les boutons s'appellent Boutonxx avec xx le N° du mois concerné
    Dim N%, ColMois, Début%, Fin%
    Application.ScreenUpdating = False
    With Sheets("Annuel")
        Mois = Val(Right(Application.Caller, 2))
        nbJours = DateSerial(2023, 12, 31) - DateSerial(2023, 1, 1)
        For j = 10 To 10 + nbJours
            .Cells(1, j).EntireColumn.Hidden = (Month(.Cells(4, j)) <> Mois)
        Next j
    End With
End Sub