Sub listeObjet_Boite_A_Outils_Controles_V02()
Dim Ws As Worksheet, Wact As Worksheet
Dim Obj As OLEObject
Set Wact = ActiveSheet
'crée une nouvelle feuille
Set Ws = Sheets.Add
'boucle sur les objets de la Feuil1
For Each Obj In Wact.OLEObjects
Ws.Cells(Obj.Index, 1) = Obj.Name
Ws.Cells(Obj.Index, 2) = Obj.Index
Ws.Cells(Obj.Index, 3) = TypeName(Obj.Object)
'Verifie s'il s'agit d'un CommandButton
If TypeName(Obj.Object) = "CommandButton" Then _
Ws.Cells(Obj.Index, 4) = Obj.Object.Caption
Next
Ws.Columns("A:C").AutoFit
End Sub