cherche barre d'outils personnalisée....

Bonjour le forum,

Je suis bloquée sur un pti soucis et j'ai le nez dedans depuis un bon moment mais je ne vois toujours pas la solution... Je m'en remet à vous... Voici la situation:

J'ai developé une application excel sous VBA qui fais plein de choses (tracer des courbes, imprimer des trucs...) j'ai donc rajouté un menu dans la barre d'outils qui contient toutes les actions possible.. Cependant ce menu s'affiche dans la barre d'outils mais lorsaue je clique dessus il est vide!!! alors que la semaine derniere ce meme programme marchait... ce menu affichait toutes les commandes possibles... :woohoo: alors la je ne comprends pas.. j'ai redemmaré le pc... rien a faire, mon menu est toujours vide...

sos :ermm:

Merci d'avance de m'avoir lu et aussi pour votre aide

Amicalement!

Voici le code :

Sub Auto_open()
'
' Auto_open Macro
' place un élément supplémentaire dans le menu principal d'Excel

CommandBars('Worksheet Menu Bar').Reset
Set newmenu1 = Application.CommandBars('Worksheet Menu Bar').Controls.Add(Type:=msoControlPopup, before:=10, temporary:=True)
newmenu1.Caption = 'Debuter'
Set newmenu2 = Application.CommandBars('Menu contextuel personnalisé 1').Controls.Add(Type:=msoControlButton, before:=1, temporary:=True)
newmenu2.Caption = 'entrer des données'
newmenu2.OnAction = 'module2.saisie'
Set newmenu3 = Application.CommandBars('Menu contextuel personnalisé 1').Controls.Add(Type:=msoControlButton, before:=2, temporary:=True)
newmenu3.Caption = 'voir des données'
newmenu3.OnAction = 'module6.show_data'
Set newmenu4 = Application.CommandBars('Menu contextuel personnalisé 1').Controls.Add(Type:=msoControlButton, before:=3, temporary:=True)
newmenu4.Caption = 'Tracer la courbe'
newmenu4.OnAction = 'module4.Graph'

Sheets('debuter').Select

Range('A1').Select
End Sub