Créer un UserForm_Multipages Dynamique (VBA)

Bonjour,

HELP ! HELP ! HELP !

Je souhaiterais pouvoir dupliquer la page2 d'un Multipages (forme + Différents types de Contrôles) en autant de fois que X (variable renseignée par l'utilisateur) et pouvoir définir un événement pour chaque contrôle ainsi créé.

Cela fait plusieurs jours que j'essaie sans y parvenir...

Merci de votre aide !

P.S. : J'ai essayé sans succès d'adapter la méthode "Définition à la création du UserForm" dont voici le début de code mais outre qu'il ne me parait pas nécessaire de créer ex nihilo les deux UserForm (l'objectif étant de dupliquer la page2) je ne parviens pas une fois créér le multipages à le modifier : créer des pages supplémentaires comprenant différents contrôles... Pour ma compréhension, si là encore vous avez des explications je suis preneur...

Sub lancementprocédure()

'Création d'un UserForm

Dim USF1 As Object
Dim MyMultipages As Object
'Dim NewButton As Object

Set USF1 = ThisWorkbook.VBProject.VBComponents.Add(3)

With USF1
'.Properties("Name")= "USF1"
.Properties("Caption") = "DonnéesdeMarchés"
.Properties("Width") = 500
.Properties("Height") = 200
End With

' Création du Multipages

Set MyMultipages = USF1.Designer.Controls.Add("forms.Multipage.1")
With MyMultipages
.Height = 50
.Top = 6
.Left = 18
.Width = 144
.Height = 160
End With

' Par exemple ce qui suit ne marche pas
' Dim p As Page
' Set p = Multipage1.Pages.Add ()

End Sub