[VBA] Problème d'ajout de code Combobox dans Userform en automatique

[Allergique]

Bonjour,

Après des heures à essayer de résoudre mon problème, je fais appel à votre savoir!

Dans un Userform j'ajoute un combobox en automatique avec le code suivant:

Set Ctrl = Frame2.Controls.Add("forms.combobox.1")

j'ajoute le code de la fonction _Change

 With Ctrl
        'gestion combobox
        If i = 14 Then 'En cours/terminée
            .Name = "combobox" & i
            .Value = UserForm1("Label" & i).Caption
            .AddItem "En cours"
            .AddItem "Terminée"
            .Height = "16"
            .Width = UserForm1("label" & i).Width
            .Left = UserForm1("label" & i).Left
            .Top = UserForm1("label" & i).Top - 3
            [color=green]
            '------------------------
            'Test de code  combobox
            '------------------------

            Code = "Private Sub Combobox14_Change()" & vbCrLf
            Code = Code & "msgbox(""TEST"")" & vbCrLf
            Code = Code & "End Sub"

            Set usf = ThisWorkbook.VBProject.vbcomponents("userform1")
            With usf.codemodule
            NextLine = .CountOfLines + 1
            .InsertLines NextLine, Code
            End With
            
            '-------------------------
            '-------------------------
            [/color]
            (...)
            end if
            End With

Le problème est que la fonction _Change du combobox14 ne fonctionne pas, bien que le code se rattachant au combobox apparaisse dans l'userform.

J'ai mis le fichier en pièce jointe pour être plus concret

Merci à ceux qui sauront m'aider à résoudre ce problème!