[XL-2010] Ajout de macro dans feuil par macro

Bonjour à tous,
j'aimerais insérer un code dans chacun des feuille créées par macro. j'ai suvi un excellent document pdf trouvé sur SilkyRoad, et j'ai activé la référence: Microsoft Visual Basic for ApplicationsExtensibility 5.3
Mais cela`ne semble pas fonctionner, avez-vous une idée?

...
....
Code:

1 2 3 4 5 6 7 8 With ActiveWorkbook.VBProject.VBComponents(NomdeFeuilCree).CodeModule x = .CountOfLines .InsertLines x + 1, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)" 'Chr(38) permet d'insérer le symbole & dans la procédure. .InsertLines x + 2, _ "Call DetailCellule" .InsertLines x + 3, "End Sub" End With
En passant, quand j'ajoute ub espion sur le x, la valeur de ce dernier reste a vide!
Je ne sais pas si ça peut aider,
Merci

Et comme ça ?

Code:

1
2
3
4
5
6
    With ActiveWorkbook.VBProject.VBComponents(NomdeFeuilCree.CodeName).CodeModule
        x = .CountOfLines
        .InsertLines x + 1, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"
        .InsertLines x + 2, "Call DetailCellule"
        .InsertLines x + 3, "End Sub"
    End With

Même chose :(