Google Sheets VBA Xls google Sheet

Sub Worksheet_Change(ByVal T As Range)

    If T.Count > 1 Then Exit Sub

    If Not Intersect(T, [B13]) Is Nothing Then      ' Si B13

        Application.ScreenUpdating = False          ' Figer écran

        Columns("C:OE").EntireColumn.Hidden = True  ' Tout démasquer

        ' Masquer du début à la semaine considérée

        Range(Cells(1, 7 * [B13] - 6), Cells(1, 395)).EntireColumn.Hidden = False

    End If

End Sub