Dim tablo()
Dim x As Integer
Dim obj As Shape
ReDim tablo(2, 0)
tablo(0, 0) = "nom"
tablo(1, 0) = "cellule haut gauche"
tablo(2, 0) = "cellule inferieur droit"
For Each obj In ActiveSheet.Shapes
x = x + 1
ReDim Preserve tablo(2, x)
tablo(0, x) = obj.Name
tablo(1, x) = obj.TopLeftCell.Address(0, 0)
tablo(2, x) = obj.BottomRightCell.Address(0, 0)
Next obj
Range("a1").Resize(UBound(tablo, 2) + 1, 3) = Application.Transpose(tablo)