XL 2016 masquer afficher onglets interrupteur

Private Sub ToggleButton1_Click()
    If ActiveSheet.ToggleButton1 Then
        ActiveSheet.ToggleButton1.Caption = "Afficher"
        For Each ws In ActiveWorkbook.Sheets
            If ws.Name <> ActiveSheet.Name Then
                ws.Visible = False
            End If
        Next
    Else
        ActiveSheet.ToggleButton1.Caption = "Masquer"
        For Each ws In ActiveWorkbook.Sheets
            If ws.Name <> ActiveSheet.Name Then
                ws.Visible = True
            End If
        Next
    End If
End Sub

Private Sub ToggleButton1_Click()
    If ActiveSheet.ToggleButton1 Then
        ActiveSheet.ToggleButton1.Caption = "Afficher"
        Sheets("B").Visible = False
        Sheets("C").Visible = False
        Sheets("D").Visible = False
        Sheets("E").Visible = False
    Else
        ActiveSheet.ToggleButton1.Caption = "Masquer"
        Sheets("B").Visible = True
        Sheets("C").Visible = True
        Sheets("D").Visible = True
        Sheets("E").Visible = True
    End If
End Sub