Option Explicit
Sub Option_Button_supprimer()
Dim s As Shape
For Each s In Sheets("Feuil1").Shapes
If s.Type = 8 And s.Name Like "Option Button*" Then s.Delete
Next
End Sub
Sub Picture_supprimer()
Dim s As Shape
For Each s In Sheets("Feuil1").Shapes
If s.Type = 13 And s.Name Like "Picture*" Then s.Delete
Next
End Sub
... Pardonne moi de te prendre du temps...