Bonjour Stéphane Guidon, Galopin1
Voici le code pour l'insersion de bouton de commande "Contrôle Activx". A adapter pour le positionnement dans la cellule
Sub INSERER_BOUTON()
Dim i As Integer
Cells(1, 1).Select
For i = 1 To 50
With Cells(1, i)
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=.ColumnWidth, Height:=.RowHeight)
End With
Next i
End Sub