Inserer une image liant aux contacts

Bonjour le forum

Je souhaiterai insérer une photo ou un logo via l'userform et inscrire cette photo ou logo dans la cellule ou pourquoi pas dans un fichier.

Ensuite dès que l'on active l'userform, selon le contact choisi , je souhaiterai que le logo s'affiche dans son emplacement de l'userform. Et si il n'y a pas de logo alors on peut inserer un logo sur la ligne correspondante de ce contact.

Je joins le fichier pour plus de précision.

Voilà ce que j'ai commencé mais je n'arrive pas à associer le logo au contact

Private Sub CmdB_Ouvrir_Image_Click()
    Dim TheFile As Variant
    Dim Gauche, Sommet, Largeur, Hauteur As Single
    Dim derlign As Integer

    Set Wsi = Sheets("Images")

    TheFile = Application.GetOpenFilename("Fichiers Gif ou Jpg ,*.gif;*.jpg;*.jpeg")
    If TheFile <> False Then
        Me.Controls("Image1").Picture = LoadPicture(TheFile)
        Image1.Tag = TheFile
        Image1.PictureSizeMode = fmPictureSizeModeZoom
        If Not TheFile = "Faux" Then Userform1.TxtB_Chemin = TheFile
    End If

'    Gauche = Wsi.Range("D" & derlign).Left
'    Sommet = Wsi.Range("D" & derlign).Top
'    Largeur = Wsi.Range("D" & derlign).Width
'    Hauteur = Wsi.Range("D" & derlign).Height

    If TheFile <> False Then
        With Sheets("Images")
            .Pictures.Insert(TheFile).Name = "Image"
            .Shapes("Image").Height = Hauteur
            .Shapes("Image").LockAspectRatio = msoTrue
        End With
    End If
End Sub

Cordialement

bonjour

Up!

Cordialement