XL 2010 Création dynamique de Controles et du code event associé

public function quoi()
quoi="chocolat"
end function

sub test()
msgbox "j'aime le " & UserForm1.quoi
end sub

Sub test()
    Dim forme, I&, B
    With UserForm1
        For I = 1 To 3
            Set B = .Controls.Add("Forms.CommandButton.1")
            B.Name = "bouton" & I
            B.Caption = B.Name
            B.Top = (20 * (I - 1)) + (10 * I)
        Next
    .Show 0
    End With
End Sub

Dim cls() As New UserForm2

Private Sub UserForm_Activate()
    For Each ctrl In Me.Controls
        If ctrl.Name Like "bouton*" Then I = I + 1
        ReDim Preserve cls(1 To I): Set cls(I).bouton = ctrl
        MsgBox "prise en charge du bouton""" & ctrl.Name & """"
        Next
End Sub

Public WithEvents bouton As MSForms.CommandButton

Private Sub bouton_Click()
MsgBox "vous avez cliqué sur le bouton """ & bouton.Name & """"
End Sub

Option Explicit
Implements CAsso
Private Parent As ControlsAssociés, WithEvents Img As MSForms.Image, Index As Long, _
   Colonne As Long, Dossier As String, UsMode, RéfFic As String, Conteneur As Object
Private Sub CAsso_Init(ByVal Lui As ControlsAssociés, ByVal Ctl As MSForms.IControl, ByVal Idx As Long, _
   ByVal Col As Long, ByVal Fmt As String, ByVal Mode As Variant)
   Dim ImOBn As MSForms.OptionButton, CAssoOBn As CAssoOBn
   Set Parent = Lui: Set Img = Ctl: Index = Idx: Colonne = Col: UsMode = Mode
   Dossier = Fmt
   Set Conteneur = Ctl.Parent
   End Sub
Private Function CAsso_Ctl() As MSForms.IControl
   Set CAsso_Ctl = Img
   End Function
Private Function CAsso_Index() As Long
   CAsso_Index = Index
   End Function
Private Function CAsso_Col() As Long
   CAsso_Col = Colonne
   End Function
Private Function CAsso_Format() As String
   CAsso_Format = Dossier
   End Function
Private Function CAsso_Mode() As Variant
   CAsso_Mode = UsMode
   End Function
Private Property Let CAsso_Valeur(ByVal RHS As Variant)
   On Error Resume Next
   If Dossier <> "" And RHS <> "" Then
      Img.Picture = LoadPicture(Dossier & "\" & RHS)
   Else
      Img.Picture = LoadPicture(RHS)
      End If
   If Err = 0 Then RéfFic = RHS Else MsgBox RHS & vbLf & Err.Description, vbExclamation, "Image"
   Conteneur.Repaint
   End Property
Private Property Get CAsso_Valeur() As Variant
   CAsso_Valeur = RéfFic
   End Property
Private Sub Img_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Dim GOFn
   If Button = 1 Then
      If Dossier <> "" Then ChDrive Dossier: ChDir Dossier
      GOFn = Application.GetOpenFilename("Image,*.jpg;*.gif;*.bmp")
      If VarType(GOFn) <> vbString Then Exit Sub
      If Dossier <> "" Then If Left$(GOFn, Len(Dossier) + 1) <> Dossier & "\" Then MsgBox _
         "Image non rattachée au dossier :" & vbLf & Dossier, vbCritical, "Image" _
         Else CAsso_Valeur = Mid$(GOFn, Len(Dossier) + 2) Else CAsso_Valeur = GOFn
   ElseIf Button = 2 Then
      If CAsso_Valeur = "" Then Exit Sub
      If MsgBox("Voulez-vous effacer cette image ?", vbYesNo, "Clic droit") = vbNo Then Exit Sub
      CAsso_Valeur = ""
      End If
   Parent.CAM_Change Me
   End Sub

Public Sub Add(ByVal Ctl As MSForms.Control, Optional ByVal Colonne As Variant = -1, _
   Optional ByVal Format As String = "", Optional ByVal Mode = Empty)
' — Arguments :
'  Ctl :  Le contrôle à ajouter.
'  Colonne :  La colonne dans le tableau.
'  Format :  Le format de conversion de la valeur en le texte affiché dans le contrôle.
'  Mode :  Ce que vous aimeriez retrouver en CAM.Mode pour orienter un traitement d'évènement.
   Dim I As Long
   CorrigerColonne Colonne, "Add Me." & Ctl.Name
   I = Me.Count + 1: ReDim Preserve TCAssos(1 To I) As CAsso
   Select Case True
      Case TypeOf Ctl Is MSForms.TextBox:    Set TCAssos(I) = New CAssoTBx
      Case TypeOf Ctl Is MSForms.ComboBox:   Set TCAssos(I) = New CAssoCBx
      Case TypeOf Ctl Is MSForms.OptionButton: MsgBox "Contrôle de type ""OptionButton"" non supporté," _
         & vbLf & "mais un ""Frame"" en contenenant serait accepté.", _
         vbCritical, "ControlsAssociés Add Me." & Ctl.Name: End
      Case TypeOf Ctl Is MSForms.CheckBox:   Set TCAssos(I) = New CassoCkx
      Case TypeOf Ctl Is MSForms.Frame:      Set TCAssos(I) = New CAssoFrm
      Case TypeOf Ctl Is MSForms.Image:      Set TCAssos(I) = New CAssoImg
      Case Else: MsgBox "Contrôle de type """ & TypeName(Ctl) & """ non supporté actuellement", _
         vbCritical, "ControlsAssociés Add Me." & Ctl.Name: End: End Select
   TCAssos(I).Init Me, Ctl, I, Colonne, Format, Mode
   End Sub