Bonjour,
Non, tu ne peux pas mais par contre, tu peux utiliser un tableau dont voici un petit exemple en attendant plus d'explications :
Sub Test()
Dim Tbl() As MSForms.Label
Dim Ctrl As OLEObject
Dim I As Integer
For Each Ctrl In ActiveSheet.OLEObjects
If TypeName(Ctrl.Object) = "Label" Then
I = I + 1: ReDim Preserve Tbl(1 To I)
Set Tbl(I) = Ctrl.Object
End If
Next Ctrl
If Not (Not Tbl) Then
'ici, tu peux choisir les index
For I = 1 To UBound(Tbl)
Debug.Print "Nom du contrôle : "; Tbl(I).Name; " Caption du contrôle : "; Tbl(I).Caption
Next I
End If
End Sub