Bonjour,

dans une boucle je veux effacer l'image de la cellule "C" & i
J'ai donc insérer dans ma boucle le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For Each sh In imprim.Shapes
                    If sh.TopLeftCell.Address = Range("C" & i).Address Then
                        sh.Delete
                        Exit For
                    End If
Next
Sachant qu'il y 0 ou 1 seule image dans la cellule "C" & i je pense qu'il est possible d'optimiser ce bout de code

A mon sens
Code : Sélectionner tout - Visualiser dans une fenêtre à part
For Each sh In imprim.Shapes
balaye toutes les images de la feuille