Bonjour,

pour supprimer une série de lignes y compris les shapes j'ai écrit
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For k = ligFin To  ligDeb Step -1
        For Each shap In sh.Shapes
            If shap.TopLeftCell.Row = k Then shap.Delete
        Next
        sh.Range("A" & k).EntireRow.Delete
Next k
en partant de la fin pour éviter les décalages

Cela marche parfaitement bien, mais en pas à pas je constate qu'il y a une boucle for/next sur chaque ligne alors qu'il n'y a (à priori!) qu'une seule shape (une photo) sur chaque ligne

Ma question : peut-on remplacer la boucle for/next par une seule suppression de l'image sur une cellule (toujours la "D") du style
Code : Sélectionner tout - Visualiser dans une fenêtre à part
shap.TopLeftCell.cells(4, k).Delete