Private Sub Worksheet_Activate()
For n = ActiveSheet.Shapes.Count To 1 Step -1
ActiveSheet.Shapes(n).Delete
Next n
End Sub
Sub auto_open()
Dim mes_formes As Object
For Each mes_formes In ActiveSheet.Shapes
mes_formes.Delete
Next
End Sub
Feuil1.DrawingObjects.Delete