Sub Macro1()
With ActiveSheet
For i = 1 To .Shapes.Count
If Left(.Shapes(i).Name, 7) <> "Picture" Then .Shapes(i).Visible = False
Next
[COLOR="Red"]ActiveSheet.DrawingObjects.Select[/COLOR] 'sélectionne tous les objets visibles
For i = 1 To .Shapes.Count
If Left(.Shapes(i).Name, 7) <> "Picture" Then .Shapes(i).Visible = True
Next
End With
End Sub