Option Explicit
Option Compare Text
Sub Supprime_Liens()
Dim img As Shape, Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
Sh.Activate
For Each img In ActiveSheet.Shapes
If img.Name Like "PICTURE*" Then
img.Select
Selection.ShapeRange.Item(1).Hyperlink.Delete
End If
Next img
Next Sh
End Sub