Macro pour effacer une image dans une cellule spécifique

Bonjour,

Je cherche a effacer une image positionnée dans une feuille et cellule donnée, j'ai écris ceci mais àa ne fonctionne pas.
J'ai l'erreur : "

Citation:

Propriété ou méthode non gérée par cet objet

"

--> EffaceImage "Base", 3, 27 devrait effacer l'image de la cellule AA (colonne 27, ligne 3 ) de la feuille nommée "Base"

Pouvez vous me dire d'ou vient le probleme svp ?
Merci à vous,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub EffaceImage(Worksheet_name As String, xRowIndex As Byte, xColIndex As Byte) Dim s As Shape, rng As Range Set oWs = Sheets(Worksheet_name) Set rng = Cells(xRowIndex, xColIndex) For Each s In oWs.Shapes If Not Intersect(s.TopLeftCell, oWs.rng) Is Nothing Then s.Delete Exit For End If Next s End Sub

Hello,
ows.rng ? :question:

Code:

1
2
3
4
5
6
7
    Set rng =  ows.Cells(xRowIndex, xColIndex)
    For Each s In oWs.Shapes
            If Not Intersect(s.TopLeftCell, rng) Is Nothing Then
                s.Delete
                Exit For
            End If
    Next s

C'est vu, merci pour la correction.