XL 2016 Clôturer-This worbook vba

Private Sub Worksheet_Change(ByVal Target As Range)
Dim WS As Worksheet
For Each WS In Sheets(Array("Janvier", "HJanvier", "BJanvier", "Bilan"))
WS.Unprotect ("azerty")
WS.Calculate
WS.Protect ("azerty"), DrawingObjects:=True, Contents:=True, Scenarios:=True _
                       , AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering:=True
Next WS
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Cel As Range
Application.ScreenUpdating = False
With Sh
    If .Name = "B" & .Range("A1") Then
        For Each Cel In Sh.Range("B8:CA8")
            If Not IsError(Cel) Then Cel.EntireColumn.Hidden = Cel = ""
        Next Cel
    End If
End With
Application.ScreenUpdating = True
End Sub