fonction generer par code

hello a ceux qui ont la solution , les autre aussi ;)

je creer des contols dynamiquement par code
et je souhaiterai leur adjoindre une fonction
j ai fait un truc comme ca

PrixDesignation" & niveau = mon control

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim NextLine As Integer Dim strCode As String strCode = "Private Sub PrixDesignation" & niveau & "_Click()" & Chr(13) & Chr(13) strCode = strCode & "msgbox " & Chr(34) & "texte change" & Chr(34) strCode = strCode & Chr(13) & "End Sub" & Chr(13)   With ThisWorkbook.VBProject.VBComponents("PrixDesignation" & niveau).CodeModule NextLine = .CountOfLines + 1 .InsertLines NextLine, strCode End With

---

le probleme cela me genere bien la sub mais ca me ferme ma userform
attention tout ce passe dans un userform sous excel bien evidement

merci infiniment de me mettre sur une piste
si je trouve je posterai la solution