Salut,

Sub efface()
    Dim img As Object
        
    For Each img In Worksheets(1).Shapes 'ou Worksheets("nom").Shapes
     img.Delete
    Next
    
End Sub

Merci beaucoup pour la solution : elle fonctionne impécablement
:0)

personnalisé à mon onglet, cela donne :

Dim img As Object

For Each img In Sheets("travail").Shapes
img.Delete
Next

longue vie au forum !!

Mimi

Re,

Utilise plutôt celui là

Option Explicit
Option Compare Text 'insensible à la casse de caractères

Sub efface()
    Dim img As Shape
        
    For Each img In Worksheets("a").Shapes
     If img.Name Like "PICTURE*" Then
        img.Delete
     End If
    Next
    
End Sub

Activesheet.Shapes.SelectAll
selection.delete

;)

Merci pour la (les solutions) ! c'est exactement ce que je recherchais !
Amicalement !

@zorgloub

J'ai bien peur que la notion d'image dans la colonne F n'ai pas lieu d'être. En effet, une image n'est pas installée dans une cellule, elle est collée par dessus la feuille, puis est positionnée (ce qui donne parfois l'illusion qu'elle se trouve dans une colonne.
Je pense que pour supprimer ces dites images, il faudrait que tu joues dans la macro avec leur position (Top, Left...) afin de déterminer les images qui se situent au niveau de la colonne F.

A moins que quelqu'un ai une autre idée...

A bientôt.

MA

Pour tester la cellule sous une shape (plus exactement la cellule située sous le coin supérieur gauche), on peut utiliser la propriété TopLeftCell de l'objet shape. À partir de là, savoir si c'est la colonne F est facile.