menu personnalisé Word

Bonjour,
Je souhaite activer une macro (écrite pour word97) à
partir d'une barre de menu personnalisé.
Je parviens à personnaliser la barre de menu. La macro
s'exécute si le fichier où elle est écrite est ouvert ou
si la macro est enregistrée dans le normal.dot, mais je
n'arrive pas à l'exécuter autrement.


Voici le texte de la macro :

1ère partie : installe le nouveau menu
Sub InstallMenuExpert()
'
' Macro1 Macro

'desinstalle le menu expert précédent
On Error GoTo creation 'si la barre expert n'est pas
installée
' alors passe à l'étiquette
creation
Set expert = CommandBars.ActiveMenuBar
CommandBars.ActiveMenuBar.Controls
("expert").Delete 'sinon la supprime
'
creation:
'barre de menu Expert
Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add
(Type:=msoControlPopup, Temporary:=False,
Before:=10) 'barre fixe, en 10ème position

newMenu.Caption = "E&xpert"

End Sub

2ème partie : installe un sous menu
'
' barre_complétée Macro

Set fs = Application.FileSearch
With fs
.LookIn = "c:\users\expert\PilotGP"
.FileName = "Prog_Fusion_Word.doc"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Else
MsgBox "La macro n'est pas sur c:\users\expert\PilotGP."

Exit Sub
End If

If BarreExpertExiste = -1 Then 'appelle la fonction qui
vérifie si la barre expert existe
Application.Run MacroName:="InstallMenuExpert"
End If
On Error GoTo fait
CommandBars.ActiveMenuBar.Controls("expert").Controls
("Fusion CCT Synthèse").Delete

fait:
Set newMenu = CommandBars.ActiveMenuBar.Controls("expert")
Set ctrl2 = newMenu.Controls.Add(Type:=msoControlButton,
ID:=1)

ctrl2.Caption = "Fusion CCT Synthèse"
ctrl2.TooltipText = "Fusion CCT Synthèse"
ctrl2.Style = msoButtonCaption
'ajout

With ctrl2
.OnAction = "Que mettre ici comme instruction ?"
End With

'fin ajout

End With
End Sub

3ème ma question :
.OnAction = "Que mettre ici comme instruction ?"


Merci d'avance pour votre aide