Dim o As OLEObject, n%
For Each o In Feuil1.OLEObjects
If TypeName(o.Object) = "CommandButton" Then
ReDim Preserve CB(n)
Set CB(n[U])[COLOR=rgb(65, 168, 95)][U].CB[/U][/COLOR] [/U]= o.Object
Set CB(n).lab = Feuil1.OLEObjects("Label1").Object
n = n + 1
End If
Next
End Sub