Effacer les controles type checkbox

bonjour a tous

j'ai essayer par l'enregistreur de créer un code pour effacer tout les controls de la feuille que je reçois par internet avec parfois 20 lignes et parfois 450 lignes et effacer tout ces controls un par un est fastidieux

ActiveSheet.Shapes.Range(Array("Control 177", "Control 176", "Control 175") _
        ).Select

comme vous le voyer les controls ne sont pas renommés, mais sont tous en ligne du haut en bas

bonjour a tous

j'ai trouvé ma réponse en bas de mon post

ActiveSheet.DrawingObjects.Delete

merci a ce forum

Salut

Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        If Left(sh.Name, 7) <> "Control" Then sh.Delete
    Next sh

Pierre

bonsoir Pierrep56

je viens d'essayer ta solution mais rien ne se passe, dans la feuille où j'ai essayer il y a 580 controls l'un sous l'autre et sont poser entre la colonne A et B