Userform - Image présente dans le fichier

Bonjour à tous,

J'ai créé une macro avec une liste déroulante, qui en fonction du choix effectué, affiche une image présente dans le même dossier que mon fichier.

Cela marche très bien mais je souhaiterai la modifier légèrement pour que cela aille chercher une image qui est stockée directement dans mon fichier Excel plutôt que dans mon dossier. Mais impossible de trouver comment faire..

Une idée ?

Pour le moment, mon code ressemble à ça :

If CBACC1.Value <> "" Then
    pathname = ThisWorkbook.Path & "\Accessories Medias\" & CBACC1.Value & ".jpg"    'Chemin et nom de l'image
    ImageAcc1.Picture = LoadPicture(pathname)
End If

Merci d'avance

Bonjour mayou,

A essayer:

Sub Parcourir()
Dim objShape As Shape

With Worksheets("Feuil1")
        For Each objShape In .Shapes
            If objShape.Name = CBACC1.Value
                    objShape.copy
                    sheets("Feuil2").range("A1").paste
                End if
        Next objShape
End With
End Sub