VBA Problème recolte codename d'une sheet qui vient d'être créée

Bonjour,

Je vais essayer d'être clair:

Je crée une macro complémentaire pour gérer des tableaux sous excel
(Complémentaire parce que je dois pouvoir l'envoyer pour mise à jour à de
nombreux utilisateurs).
Mon code donne la possibilité de créer des feuilles de base (je gèr e la forme
du tableau) avec un code derrière ces feuilles type "Private Sub
Worksheet_change(ByVal Target As Range)"

J'ai donc une sub pour écrire le code derrière les feuilles que je cr ée qui
utilise le méthode:
Sub Ecrirecode(sh)
code = "Blabla"
code = code & "blabla...
[...]
set Wb = ActiveWorbook
Nomfeuil = sh.CodeName
 "with Wb.VBProject.VBComponents(NomFeuil).CodeModule
    .addfromstring (Code)
end with"

==>où NomFeuil est le codename de la feuille que je viens de crée r:

Sub principale
[....]
'pour créer des feuilles basiques
ActiveWorkbook.Sheets.Add Before:=Sheets(1)
sh = sheets(1)
call Ecrirecode(sh)
[...]

PROBLEME:
Tout se passe très bien lorsque j'écris ces sub dans le projet où s ont les
feuilles basiques de tableau, MAIS elle ne sont pas dans le même projet : Les
utilisateurs ont un projet avec leurs tableaux (ScrabbSheet) et ma macro
complémentaire (ScrabbCode).
Et là, bug monumental d'Excel...

J'ai réalisé avec des msgbox que c'est parceque lorsque VB est ferm é (et je
n'ai pas envie que les utilisateurs aient à l'ouvrir pour que cela
fonctionne...) la collecte de codename de la feuille que je viens de cr éer foire
lamentablement... Par contre je peux lui demander les codename des feuill es
alentour, mais cela n'a absolument aucun intérêt!! Compte tenu du nom bre de
tableaux et de manip que les gars peuvent faire, je ne saurai jamais avec
certitude le codename de la feuille que je crée sans l'acquérir...

Voilà, j'espère que vous m'avez compris et que vous pourrais m'aider!

Cordialement,

Pierre