objets

Public Sub vev()
Dim forme As Shape
Dim ws As Worksheet

For Each ws In Worksheets
    For Each forme In ws.Shapes
MsgBox "la forme : " _
& forme.Name _
& " est présente en feuille " & ws.Name
    Next forme
Next ws
End Sub

sub liste_objets()
Set newSheet = Worksheets.Add
i = 2
newSheet.Range("A1").Value = "Nom"
newSheet.Range("B1").Value = "Link Type"
For Each obj In Worksheets("Feuil1").[B]OLEObjects[/B]
    newSheet.Cells(i, 1).Value = obj.Name
    If obj.OLEType = xlOLELink Then
        newSheet.Cells(i, 2) = "Linked"
    Else
        newSheet.Cells(i, 2) = "Embedded"
    End If
    i = i + 1
Next
end sub