Private Sub CommandButton1_Click()
Dim nbr&, combien As Variant, depTop&, depLeft&, Cpt&, bouton As Control
depTop = 20
Cpt = -1
Application.DisplayAlerts = False
combien = Application.InputBox("Combien de bouton ?", "Nombre de bouton", , Type:=1)
Application.DisplayAlerts = True
If combien = "Faux" Then Exit Sub
For Each bouton In Me.Controls
If bouton.Name Like "Btn" & "*" Then Controls.Remove bouton.Name
Next bouton
If combien = 0 Then Exit Sub
For nbr = 1 To combien
Cpt = Cpt + 1
If Cpt = 5 Then
depTop = depTop + 20
Cpt = 0
End If
Set bouton = Controls.Add("Forms.CommandButton.1")
With bouton
.Left = (Cpt * 27) + 20
.Top = depTop
.Width = 27
.Height = 18
.Name = "Btn" & nbr
.BackColor = RGB(0, 128, 64)
End With
Next nbr
End Sub