Sub test()
Dim o As Object, Elt
If TypeName(Selection) = "Range" Then Exit Sub
Set o = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, 0, 0)
o.Select False 'sélection multiple
For Each Elt In Selection
If Elt.Name <> o.Name Then _
MsgBox Elt.Name & " => " & Elt.Width & " x " & Elt.Height
Next
o.Delete 'suppression de l'objet auxiliaire
End Sub