XL 2016 Ajout d'un CommandButton dans un userform à partir d'une macro

[Valoute]

Bonjour,
j'aimerais savoir s'il est possible d'ajouter un CommandButton dans un Userform à partir d'une macro, créer une position aléatoire puis par la suite l'orienter grâce à "Left" et "Height".
Tout ça à partir d'une boucle.
Ce qui donnerais par exemple:

Dim Nb As Integer
Nb = Worksheets.Cells(2, 3).Value
If Nb <= 3 Then
For i = 1 To Nb 
Userformx.CommandButtoni.Create
Userformx.CommandButtoni.Top = 6
Userformx.CommandButtoni.Left = 12 * i * 8
Userformx.CommandButtoni.Height = 42
Next
End If
If Nb <= 6 Then
For i = 1 To 3
Userformx.CommandButtoni.Create
Userformx.CommandButtoni.Top = 6
Userformx.CommandButtoni.Left = 12 * i * 8
Userformx.CommandButtoni.Height = 42
Next
For i = 4 To Nb - 3
Userformx.CommandButtoni.Create
Userformx.CommandButtoni.Top = 6 * i * 3
Userformx.CommandButtoni.Left = 12 * i * 8
Userformx.CommandButtoni.Height = 42
Next
End If
' Etc...

 

[Yurperqod]

Bonjour le forum

Il faut aussi créer le code qui va avec les CommandButton?
Que doit-il se passer quand on clique dessus?

Cette macro ajoute un CommandButton mais ça ne créé pas le code VBA qui va avec ce nouveau bouton.
J'ai testé sur Excel 2010 sur un Userform qui a déjà un CommandButton.

Private Sub CommandButton1_Click()
Dim Cont As Control
Set Cont = Me.Controls.Add("Forms.CommandButton.1", "Test")
With Cont
.Caption = "Caption Bouton"
.AutoSize = True
.Top = 5
.Left = 15
End With
End Sub