Effacer shapes VBA

bonjour,

pouvez vous m'aider?

je voudrai effacer toutes les shapes d'un onglet à l'ouverture de cet onglet. j'ai cherché mais je ne trouve rien...

merci par avance

Bonjour,

Dans le VBE de la feuile concernée

Private Sub Worksheet_Activate()
    ActiveSheet.DrawingObjects.Delete
End Sub

amicalement

Claude

c'est tout bon merci pour la réponse.

exceldu13