XL 2016 Problème après avoir protéger une feuille

'1er cas on gère toutes les feuilles en même temps
Sub Blocage() 'Protege toutes les feuilles en même temps
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect "toto"   '(MdP à adapter)
Next ws
End Sub

Sub Deblocage() 'Déprotege toutes les feuilles en même temps
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Unprotect "toto"   '(MdP à adapter)
Next ws
End Sub


'************
'2eme cas on gère feuille par feuille
Sub blabla()
'On déprotège LA feuille et seulement celle que l'on souhaite (nom de la feuille à adapter)
Worksheets("Feuil1").Unprotect Password:="toto"   '(MdP à adapter)

'On exécute le code....
'blablabla

'On reprotège LA feuille (nom de la feuille à adapter)

Worksheets("Feuil1").Protect Password:="toto", DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFiltering:=True '(MdP à adapter)
End Sub

, UserInterfaceOnly:=True

Sub TriTotalGénéral5()
    Dim PvT As PivotTable
    Dim c As Range
    Dim idx As Variant
        Dim PvT1 As PivotTable
    Dim c1 As Range
    Dim idx1 As Variant
    With ThisWorkbook.Sheets("Bilan Mois")
    
ActiveSheet.Unprotect "1234"
        Set PvT = .PivotTables("Tableau croisé dynamique4")
        
        ' Trouver l'index de colonne de Total général
        idx = Application.Match("Total général", PvT.ColumnRange.Rows(2), 0)
        
        ' Si trouvé
        If Not IsError(idx) Then
        
        ' Récupérer la cellule correspondante
        Set c = PvT.ColumnRange.Cells(idx)
        
        ' Puis trier avec comme clef la première cellule de valeur
        PvT.DataBodyRange.Sort Key1:=c.Offset(2), Order1:=xlDescending, Type:=xlSortValues
        
        End If
    End With

    
    With ThisWorkbook.Sheets("Bilan Mois")
    

        Set PvT1 = .PivotTables("Tableau croisé dynamique11")
        
        ' Trouver l'index de colonne de Total général
        idx1 = Application.Match("Total général", PvT1.ColumnRange.Rows(2), 0)
        
        ' Si trouvé
        If Not IsError(idx1) Then
        
        ' Récupérer la cellule correspondante
        Set c1 = PvT1.ColumnRange.Cells(idx1)
        
        ' Puis trier avec comme clef la première cellule de valeur
        PvT1.DataBodyRange.Sort Key1:=c1.Offset(2), Order1:=xlDescending, Type:=xlSortValues
        
        End If
    End With
    
ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowUsingPivotTables:=True

End Sub