Changer le nom des boutons de commandes

Sub bouton()
Const x As Integer = 20           'Abscisse du 1° bouton
Const y As Integer = 10           'Ordonnée du 1° bouton
Const w As Integer = 100          'Largeur du bouton
Const h As Integer = 20           'Hauteur du bouton
Const dx As Integer = w + 10      'Décalage des boutons en abscisse
Const dy As Integer = h + 5       'Décalage des boutons en ordonnée
Const nb As Integer = 12          'Nombre de boutons par colonne
Dim b As OLEObject                'Bouton
Dim i As Integer                  'Incrément
Dim n As Integer                  'Nombre de noms de boutons

n = Application.WorksheetFunction.CountA(Range("$a:$a"))
For i = 0 To n - 1
  Set b = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1")
  With b
    .top = y + (i Mod nb) * dy
    .left = x + Int(i / nb) * dx
    .Width = w
    .Height = h
    .Name = "Btn " & i + 1
    .Object.Caption = Cells(i + 1, "A").Value
  End With
Next i

End Sub

Sub BoutonsFormulaire()
Const x As Integer = 60           'Abscisse du 1° bouton
Const y As Integer = 50           'Ordonnée du 1° bouton
Const w As Integer = 100          'Largeur du bouton
Const h As Integer = 20           'Hauteur du bouton
Const dx As Integer = w + 10      'Décalage des bouton en abscisse
Const dy As Integer = h + 5       'Décalage des bouton en ordonnée
Const nb As Integer = 12          'Nombre de boutons par colonne
Dim b As Button                   'Bouton
Dim i As Integer                  'Incrément
Dim n As Integer                  'Nombre de noms de boutons

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
n = Application.WorksheetFunction.CountA(Range("$a:$a"))
For i = 0 To n - 1
  'ActiveSheet.Buttons.Add(Left, Top, Width, Height)
  Set b = ActiveSheet.Buttons.Add(x + Int(i / nb) * dx, _
                                  y + (i Mod nb) * dy, w, h)
  With b
    .Name = "Btn " & i + 1
    .Caption = Cells(i + 1, "A").Value
    .OnAction = "ClicSurBouton"
  End With
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Sub ClicSurBouton()
  MsgBox Application.Caller
End Sub