Nommer une image insérée avec Set

Bonjour,

Comment nommer l'image insérée avec Set (Pour la supprimer plus facilement ensuite)

Set Shp = Feuil7.Shapes.AddPicture(Image, msoFalse, msoCTrue, 400, 180, -1, -1)

j'ai essayer avec

Shp.ShapeRange.Name = "Cible"

et X autre méthode mais sans succes

--

J'ai ici une 1er partie qui fonctionne et qui consiste a supprimer une image nommée "cible"

Private Sub CommandButton2_Click()

    Dim ShapeObj As Shape
    Dim Image As String
    Dim Logo As String
    Dim Shp As Object

For Each ShapeObj In Sheets("FICHE CONDITIONNEMENT PRODUIT").Shapes
        If ShapeObj.Name = "Cible" Then ShapeObj.Delete
    Next ShapeObj

2 eme partie j'ajoute une image sur ma feuille Template mais je n'arrive pas a la nommer comme il faut pour la supprimer avec le bout de code précédant.

'Ajouter les informations

Logo = ComboBox6.Value

On Error GoTo suite
Image = ("Q:\ERP\Marque\" & Logo & ".jpg")
suite:

'MsgBox Logo & " " & Image

'ICI LA PARTIE QUE NE FONCTIONNE PAS 

Set Shp = Feuil7.Shapes.AddPicture(Image, msoFalse, msoCTrue, 400, 180, -1, -1)

Shp.ShapeRange.Name = "Cible"
            'Nommer l'image insérée (Pour la supprimer plus facilement ensuite)

'Unload Fin_de_fabrication
'Sheets("FICHE CONDITIONNEMENT PRODUIT").PrintPreview            

End sub
 

Merci d'avance pour votre aide

Bonjour,

pour moi

Shp.Name = "Cible"

suffit !

Merci tu as raison cela fonctionne.

J'ai mis 2 heures cherche le comment du pourquoi. Le tuto était tout simplement pas bon.