Exporter feuille vers classeur partagé

Bonjour au forum,

Je cherche à exporter une feuille d'un classeur non partagé vers un classeur partagé via un bouton de commande.

Ce code fonctionne très bien pour un classeur de destination non partagé :

Private Sub CommandButton1_Click()

Dim sh As Worksheet, sh2 As Worksheet
     Dim NomFeuilleDestination As String
     Set sh = Sheets("Semaine 2")                        'Feuille à copier

     NomFeuilleDestination = "Semaine 2"

     'Ouvrir le classeur destination
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Horaire_fof.xlsm"

     ' Empêcher les avertissements excel
    Application.DisplayAlerts = False

     ' Eviter le message d'erreur si la feuille destination n'existe pas
    On Error Resume Next

     ' Tester si la feuille Destination existe
    Set sh2 = ActiveWorkbook.Sheets(NomFeuilleDestination)

     ' Si elle existe on l'a supprime
    If Not sh2 Is Nothing Then sh2.Delete

     'Rétablir la gestion normale des erreurs
    On Error GoTo 0

     ' Rétablir les avertissements
    Application.DisplayAlerts = True

     'Coller la feuille Origine dans le classeur destination
    sh.Copy After:=Workbooks("Horaire_fof.xlsm").Sheets(Sheets.Count)
     With ActiveSheet
         .UsedRange.Copy
         .UsedRange.Range("A1").PasteSpecial xlPasteValues
         .Name = NomFeuilleDestination
         .Protect Password:="mdp", DrawingObjects:=False, Contents:=True, Scenarios:=False
         .Range("D9").Select
     End With
     Application.CutCopyMode = False
     ActiveWorkbook.Save

End Sub

Mais il ne fonctionne pas pour un classeur de destination qui est partagé...

J'aimerais donc savoir s'il est possible de départager le classeur de destination pour permettre la copie puis de le repartager une fois la feuille copiée (le partage est protégé par mot de passe pour info).

Ci-joint les fichier source (Horaire_projet_fof) qui n'est pas partagé, et le fichier de destination (Horaire_fof) qui lui est partagé (mot de passe : mdp).

Un tout grand merci pour ceux qui pourront/voudront bien m'aider

Nico.