pour supprimer des contrôles de la boîte à outils contrôles, et ce sur la feuille active, colonne A :
Code:
Option Explicit
Sub test()
Dim c As OLEObject
For Each c In ActiveSheet.OLEObjects
If TypeName(c.Object) = "SpinButton" Then
If c.TopLeftCell.Column = 1 Then c.Delete
End If
Next c
End Sub