[VBA] : Un bouton dans userform dynamique n'a plus d'action

Option Explicit
Public Collect As Collection
Public CollectBT As Collection

Private Sub UserForm_Initialize()
Dim Bouton As MSForms.CommandButton
Dim Cl As ClasBT

Set Collect = New Collection
Set CollectBT = New Collection

            Set Bouton = Me.Controls.Add("Forms.CommandButton.1", "Bt1", True)
            CollectBT.Add Bouton, "1"  'Ajouter à la collection d'objet
            Set Cl = New ClasBT 'Ajouter à la collection de classe
            Set Cl.GroupBoutons = Bouton
            Collect.Add Cl
           
            With CollectBT("1") 'Initialise les boutons
            .Top = 20
            .Left = 30
            .Caption = "OK"
            .Tag = 1
            End With
            
            
            Set Bouton = Me.Controls.Add("Forms.CommandButton.1", "Bt2", True)
            CollectBT.Add Bouton, "2"  'Ajouter à la collection d'objet
            Set Cl = New ClasBT 'Ajouter à la collection de classe
            Set Cl.GroupBoutons = Bouton
            Collect.Add Cl
            
            With CollectBT("2") 'Initialise les boutons
            .Top = 60
            .Left = 30
            .Caption = "Cancel"
            .Tag = 2
            End With
            
    
End Sub

Public Sub ControlClick(nom As String, num As Long)
MsgBox "Bouton " & nom & " appuyé"

Select Case num
Case 1
   MsgBox "Procédure validée"
Case 2
   MsgBox "Procédure annulée"
   End
End Select

End Sub

Option Explicit

Public WithEvents GroupBoutons As MSForms.CommandButton

Private Sub GroupBoutons_Click()
    
    Call UserForm1.ControlClick(GroupBoutons.Caption, GroupBoutons.Tag)
   
End Sub