Import private sub dans Thisworkbook

Bonjour,

Je rencontre un problème, j'ai un tableau de bord qui s'actualise lorsqu'on change un identifiant. Pour cela à l'ouverture du classeur contenant ce tableau, tout les classeurs nécessaire s'ouvrent. Je souhaite masquer chaque fichier ouvert de la barre des tâches Windows. Pour ceci j'ai le code à placer dans le thisworkbook de chaque classeur qui se présente comme ceci:

private sub workbooks_open()

Application.CommandBars("Worksheet Menu Bar").Controls(9).visible = False

end sub

Le problème est que certains n'existent pas au préalable mais sont crées à partir de fichier de sortie SQL (.LST) comme ceci:

Workbooks.Open (chemin_lst & "teletrans_medecin.LST"). Ainsi à chaque fois que j'ouvre ce classeur il ne contient aucune macro (je ne le sauvegarde jamais puisque le fichier .LST change).

Ma question: Y a t-il une méthode pour importer automatiquement ce private sub workbooks_open() dans le fichier thisworkbook après chaque ouverture de classeur ?

J'attend vos retours. La bise