Vba: Insérer sub dans la feuil1 dynamiquement

Bonjour, j'explique : j'ai actuellement un script qui me génère dynamiquement une liste d'optionboutton en fonction d'un nombre de valeur d'une feuille (une ligne = un bouton).

J'aimerais que comme lorsqu'on le rentre manuellement et qu'on ajoute l'option , je puisse faire :

Private Sub OptionButton_Click()
'blabla
End Sub

Sachant que ma feuille s'appel "Filtres" qu'il s'agit de la feuil1 et que j'aimerais que ce code soit généré directement dans mon For i = qui lui est présent dans une autre feuille ( a savoir "Valeurs").

En gros : je clic sur mon bouton de génération de macro dans la feuille "Valeurs"-> ca va chercher ma colonne A1 to A500 et ca prend le nombre de valeur qu'il as trouvé et crée dans la feuille "Filtres" autand d'optionbouton que de valeur trouvé (donc tout ca j'ai reussi!) et que dans le code de la feuil1("Filtres") ca me rajoute à la suite du code présent, autant de

Private Sub OptionButton_Click()
'blabla
End Sub

que de bouton générer....

Alors j'ai trouvé un truc comme ca :

    laMacro = "Private Sub OptionButton1_Click()" & vbCrLf
    laMacro = laMacro & "msgbox(" & "test" & ")" & vbCrLf
    laMacro = laMacro & "End Sub"
    
    With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        x = .CountOfLines + 1
        .InsertLines x, laMacro
    End With

Mais comme je suis pas dans la même feuille, je pense pas que ce code marche, je pense qu'il doit être plutôt dans un module.









2eme étapes : le code dans la private sub doit être générer dynamiquement également en fonction d'une concaténation de valeurs présente dans "Valeurs" mais on verra après ^^



Merci par avance à ceux qui proposerais leurs aides