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
tu fais Edition/Atteindre (ou Ctrl + T)