Question partage de fichier

Bonjour,

J'ai créé un fichier avec un certain nombre de macros.
Quand l'utilisateur appuie sur un bouton, je souhaite que ça lui créé le même fichier mais avec d'autres onglets (ça pas de problème) mais je veux que ce nouveau fichier généré soit partagé contrairement au fichier source initial.

J'ai écrit cette macro qui partage bien le fichier (tout marche bien). Mais dès que je le réouvre, il se départage ! Je ne comprends absolument pas pourquoi.. pouvez vous m'aider?
Merci beaucoup

Sub Creation()

Dim chemin As String, fichier As String
Datejour = Feuil15.Range("B4").Value
chemin = ....\03-Fichiers chargement\"
fichier = chemin & Datejour & "_suivi_chargement.xls"

If (FichierExiste(fichier)) Then
MsgBox ("Un fichier du même nom existe déjà dans le répertoire 03-Fichiers chargement. Supprimer le fichier déjà existant pour générer le nouveau fichier")
Exit Sub
Else

Sheets("tcd").Visible = -1
Sheets("PREPA_022").Visible = -1
Sheets("récap").Visible = -1
Sheets("Mise à jour des ETP").Visible = -1
Sheets("Mise à jour").Visible = 0
Sheets("Prod obj").Visible = 0
Call MAJindicateurs
Sheets("détail chgmt").Select
ActiveSheet.Shapes("Bouton 32").Select
Selection.Delete
ActiveWorkbook.SaveAs Filename:=fichier
Call ActivePartage

End If
End Sub




Sub ActivePartage()
Application.DisplayAlerts = False

With ActiveWorkbook
.ProtectSharing
End With

Application.DisplayAlerts = True

End Sub