Image de excel à access

Bonjour,

Je suis en train de faire un logiciel dans le cadre de mon stage en entreprise, je suis étudiant.

J'ai un fichier access dans lequel je sélectionne un collaborateur,


par la suite, j'ouvre son fichier excel correspondant.

Dans ce fichier excel, je peux renseigner les informations sur les formations que le collaborateur a eu avec ses notes, mais je peux aussi sur une autre feuille remplir son futur plan de charge.


A partir de là, je peux cliquer sur le bouton de la feuille principale qui fera le lien avec ma bdd access pour mettre à jour les notes de ce collaborateur.
Mon vba va aussi faire une capture d'écran sur le plan de charge et l'enregistrer dans un fichier.

voici mon code:

Sub Bouton1_Cliquer()
    Dim cn As ADODB.Connection, rs As ADODB.Recordset, R As Long
    
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
        "Data Source=R:\Production\Rapport\Suivi formation\access\Formations.accdr"
    
    Set rs = New ADODB.Recordset
    
    Sheets("NePasToucher").Activate
    cell_id = Range("A2").Value
    
'ici capture decran
    Dim Gr As Object, Rg As Range, R1$, N$, C$, PathFich$
    R1$ = "B1:F17"
    Sheets("Plan d'action").Activate
    N$ = ActiveSheet.Range("B1")
    C$ = "R:\Production\Rapport\Suivi formation\access\image\" & cell_id & "_Boites.jpg"
    Application.ScreenUpdating = False
    PathFich$ = C$
    Set Rg = ActiveSheet.Range(R1$): Rg.CopyPicture xlScreen, xlPicture: DoEvents
    Set Gr = ActiveSheet.ChartObjects.Add(0, 0, Rg.Width, Rg.Height): DoEvents
    Gr.Activate: ActiveChart.Paste: DoEvents
    Gr.Chart.Export PathFich, "jpg": DoEvents
 
    Application.ScreenUpdating = True
    
    'requete sql
    Sheets("Matrice").Activate
    rs.Open "Boites where col_id= " & cell_id, cn, adOpenKeyset, adLockOptimistic, adCmdTable
    R = 16
    With rs
    .Fields("process") = Range("H" & R).Value
    .Fields("BE_1/2") = Range("I" & R).Value
    .Fields("BE_3/4") = Range("J" & R).Value
    .Fields("TOTAL") = Range("K" & R).Value
    If (Range("M" & R).Value) <> " " Then
        .Fields("depal_partie_generale") = Range("M" & R).Value
    End If
    If (Range("N" & R).Value) <> " " Then
        .Fields("depal_navette_alvey") = Range("N" & R).Value
    End If
    If (Range("O" & R).Value) <> " " Then
        .Fields("depal_partie_basse") = Range("O" & R).Value
     End If
    If (Range("P" & R).Value) <> " " Then
        .Fields("depal_partie_haute") = Range("P" & R).Value
    End If
    If (Range("Q" & R).Value) <> " " Then
        .Fields("depal_maintenance_1er_niveau") = Range("Q" & R).Value
    End If
    
    .Update
    End With

rs.Close
Set rs = Nothing
Gr.Delete: Set Gr = Nothing

cn.Close
Set cn = Nothing





MsgBox "maj faite"
End Sub

Jusque là tout fonctionne.
Maintenant, on retourne dans access.

Je voudrais pouvoir afficher l'image enregistrée dans mon formulaire du début à la sélection de la personne (donc de la dernière liste déroulante) a côté.
Sachant donc qu'il faut afficher l'image du bon collaborateur.
Je n'arrive pas à trouver de code vba pouvant m'aider.

Si quelqu'un connait la solution à mon problème :)

Merci d'avance