Bonjour tout le monde

voilà, j'ai une feuille Couverture sur laquelle il y a un certains nombre d'images. Je précise qu'il n'y a que des images sur cette feuille, pas de texte ou autres.

Je cherche en fait, à créer un code qui parcourt la totalité des images et qui ressemblerait à ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
        For Each img In Worksheets("Couverture")
            If img.ShapeRange.Title = Worksheets("livre").Cells(i + 1, 7) Then couv = img
        Next
où img est de type object
mais voilà, le code ci-dessus ne fonctionne pas, il bloque à la ligne For Each

Quelqu'un pourrait me venir en aide svp?

merci d'avance