menu personnalisé Word

Bonjour,
Je souhaite activer une macro (=E9crite pour word97) =E0=20
partir d'une barre de menu personnalis=E9.
Je parviens =E0 personnaliser la barre de menu. La macro=20
s'ex=E9cute si le fichier o=F9 elle est =E9crite est ouvert ou=20
si la macro est enregistr=E9e dans le normal.dot, mais je=20
n'arrive pas =E0 l'ex=E9cuter autrement.


Voici le texte de la macro :

1=E8re partie : installe le nouveau menu
Sub InstallMenuExpert()
'
' Macro1 Macro

'desinstalle le menu expert pr=E9c=E9dent
On Error GoTo creation 'si la barre expert n'est pas=20
install=E9e
' alors passe =E0 l'=E9tiquette=20
creation
Set expert =3D CommandBars.ActiveMenuBar
CommandBars.ActiveMenuBar.Controls
("expert").Delete 'sinon la supprime
'
creation:
'barre de menu Expert
Set myMenuBar =3D CommandBars.ActiveMenuBar
Set newMenu =3D myMenuBar.Controls.Add
(Type:=3DmsoControlPopup, Temporary:=3DFalse,=20
Before:=3D10) 'barre fixe, en 10=E8me position

newMenu.Caption =3D "E&xpert"

End Sub

2=E8me partie : installe un sous menu
'
' barre_compl=E9t=E9e Macro

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

Exit Sub
End If

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

fait:
Set newMenu =3D CommandBars.ActiveMenuBar.Controls("expert")
Set ctrl2 =3D newMenu.Controls.Add(Type:=3DmsoControlButton,=20
ID:=3D1)

ctrl2.Caption =3D "Fusion CCT Synth=E8se"
ctrl2.TooltipText =3D "Fusion CCT Synth=E8se"
ctrl2.Style =3D msoButtonCaption
'ajout

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

'fin ajout

End With
End Sub

3=E8me ma question :
.OnAction =3D "Que mettre ici comme instruction ?"


Merci d'avance pour votre aide