Insérer un Menu EXCEL pour un seul fichier

Bonjour,

Je souhaite créer un menu avc des sous menus dans excel seulement je veus mettre ce menu ds la barre principale. J’arrive à le faire en faisant personnaliser, nouveau menu etc.. mais je n’obtiens pas ce que je souhaite : en effet je voudrais que ce menu s’affiche seulement avc ce fichier et qu’on puisse le voir d’un autre ordinateur. Et là, il se trouve que quand j’ajoute ce menu : il s’affiche à chaque fois que j’ouvre excel et je ne le vois pas d’un autre ordinateur !! J’ai un code vb qui permet d’afficher le menu seulement quand j’ouvre le fichier :
Option Explicit

Public Sub ajoutBarre()
Dim cb As CommandBar
Dim cbb30 As CommandBarButton
Dim cbb40 As CommandBarButton
'Si la barre existe, on la supprime
On Error Resume Next
Application.CommandBars("Choix").Delete
On Error GoTo 0

'********************************
'Création de la barre de contrôle
'********************************
Set cb = CommandBars.Add
With cb
.Name = "Choix"
.Position = msoBarTop
.Visible = True
End With

'*********************************
'Création du bouton 'Déplacer'
'*********************************
Set cbb30 = cb.Controls.Add(msoControlButton)
With cbb30
.OnAction = "lancer"
.Caption = "Ajouter activité"
.Style = msoButtonCaption
End With

'*********************************
'Création du bouton 'Dissocier'
'*********************************
Set cbb40 = cb.Controls.Add(msoControlButton)
With cbb40
.OnAction = "ajoutsupp"
.Caption = "Maintenance du devis"
.Style = msoButtonCaption
.BeginGroup = True
End With

End Sub
Sub lancer()
UserForm1.Show
End Sub

Sub ajoutsupp()
MsgBox "EN COURS DE DEVELOPPEMENT ...", vbExclamation, "Message Tour de Contôle"
End Sub

LE PROBLEME c’est que ce menu ne s’ajoute pas ou je veus : il s’ajoute en dessous du menu principal et moi je le veus vraiment ds la barre principale….Quelqu’un peut m’aider ?
Merci…