nom des differents objets présents dans ma feuille

Salut Jean-Marie,

Comme ceci, par exemple :

Private Sub CommandButton4_Click()
Dim CTL As Shape
ComboBox1.Clear
For Each CTL In Shapes
If Left(CTL.Name, 13) = "CommandButton" Then
ComboBox1.AddItem CTL.Name
End If
Next
If ComboBox1.ListCount > 0 Then
ComboBox1.ListIndex = 0
End If
End Sub

A+
LN

Salut "L'AMIRAL" LN
Bonjour le "FORUM"
je te remercie pour ton aide
j'adapte ,Je persevere
A+++
Jean Marie