Sub Essai()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
Sh.Placement = xlMoveAndSize
On Error Resume Next
Sh.Select
Selection.ShapeRange.Item(1).Hyperlink.Delete
Next
[A1].Select
End Sub
On Error Resume Next permet d'éviter une erreur si le shape n'a pas de lien.