Macro et fichier partagé

Bonjour

J'ai fait un fichier pour une collègue, qui sera ensuite partagé entre plusieurs personnes pour faire de la saisie de données.
C'est un genre d'agenda mais sur excel.
J'ai 2 macro dedans une qui permets de dupliquer une feuille contenant un tableau vierge avec MFC etc, et une macro qui va selon l'appuie d'une touche, colorer en vert ou rouge l'onglet de la feuille qui n'aura plus de disponibilité.

Le soucis c'est que lorsque je mets en place le partage, j'ai une erreur 1004 qui apparait sans que je ne trouve la source du soucis.

Je vous mets les codes des macros

Sub dupliquerfeuilleactive()
    Dim i As Integer
    For i = 1 To InputBox("Combien de feuilles voulez vous insérer ?")
        Worksheets("Vierge").Copy Before:=ActiveSheet
    Next

End Sub

Sub coulonglet()

Dim feuille As Variant

For feuille = 1 To Sheets.Count

If Sheets(feuille).Range("F31") = 0 Then
Sheets(feuille).Tab.ColorIndex = 3
Else
Sheets(feuille).Tab.ColorIndex = 4
End If
Next
End Sub

mis dans un module

et mis dans thisworkbook
Private Sub Workbook_Open()

 ' Récupère les touches de fonctions pour les attribuer aux macros
     Application.OnKey "{F7}", Procedure:="coulonglet"

End Sub

Merci de votre aide