Copie d'un fichier protégé avec groupements autorisés

Bonjour,

Je cherche depuis un moment la solution à mon problème :

Pour mon projet, je souhaite créer une copie de certaines des feuilles de mon classeur, qui sont protégées. Ceci étant, ces feuilles possédant des groupements, pour permettre d'utiliser les + et -, je désactive partiellement la protection de la feuille à l'ouverture du classeur grâce au code ci-dessous :

Private Sub Workbook_Open()
    For i = 1 To 4
        With Worksheets("Feuille" & i)
            .EnableAutoFilter = False
            .EnableOutlining = True
            .Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
        End With
    Next i
End Sub

Le problème est qu'en créant la copie de ces feuilles via ce code :

Worksheets(Array("Feuille1", "Feuille2", "Feuille3", "Feuille4" )).Copy

    With ActiveWorkbook

        For i = 1 To 4
            With Worksheets("Feuille" & i)
                .EnableAutoFilter = True
                .EnableOutlining = True
                .Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
            End With
        Next i

        ActiveWorkbook.SaveAs Filename:="destination fichier"
        .Close

    End With

Les feuilles sont totalement protégées (on ne peut pas utiliser les + et - des groupements).

Le problème vient peut-être du fait que je déclare le premier code dans le "ThisWorkbook" de mon classeur initial pour qu'il exécute ce code à l'ouverture, mais à ce compte-là est-il possible d'enregistrer une macro dans le "ThisWorkbook" du fichier que je souhaite créer en passant par ma macro?

Ou peut-on résoudre résoudre autrement?

Merci d'avance,

Cordialement