Salut Eric
Pour nommer un object
Set mydocument = Worksheets(1)
With mydocument.Shapes.AddShape _
(msoShapeRectangle, 50, 50, 100, 200)
.Name = 'toto'
End With
Ou
With ActiveSheet.Shapes.AddShape _
(msoShapeRectangle, 50, 50, 100, 200)
.Name = 'toto'
End With
Mytå