cherche une image dans fichier externe

Image.Picture = LoadPicture(répertoirePhoto & Target & ".jpg")

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim OLE_Objet As OLEObject
    Dim Img As Image
    Dim RepPhoto As String

    If Not Intersect(Target, Range("A2:A5")) Is Nothing And Target.Count = 1 Then

        RepPhoto = "D:\" 'adapter le chemin

        'affecte à la variable l'objet OLE qu'est le contrôle ActiveX Image
        'il faut utiliser OLEObjects car c'est un objet OLE
        'j'ai laissé le nom par défaut "Image1"
        Set OLE_Objet = Worksheets("affichephoto").OLEObjects("Image1")

        'le rend visible si il a été caché
        OLE_Objet.Visible = True

        'passe l'objet de l'objet OLE à la variable Img afin
        'd'utiliser les propriétés propre à l'objet Image
        Set Img = OLE_Objet.Object

        'charge la photo et la positionne
        With Img
            .Picture = LoadPicture(RepPhoto & Target & ".jpg")
            .Left = Target.Offset(, 1).Left + 5
            .Top = Target.Offset(, 1).Top
        End With

    Else

        'si hors de la plage, cache le contrôle Image
        Set OLE_Objet = Worksheets("affichephoto").OLEObjects("Image1")
        OLE_Objet.Visible = False

    End If

End Sub

 MsgBox Dir(RepPhoto & Target & ".jpg")

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Image1.Visible = False
If Not Intersect(Target, Range("A2:A5")) Is Nothing And Target.Count = 1 Then
   ChDrive "C": ChDir "C:\Documents and Settings\pgillet\Mes documents"
   On Error Resume Next
   Image1.Picture = LoadPicture(Target & ".jpg")
   If Err Then MsgBox Err.Description: Exit Sub
   On Error GoTo 0
   Image1.Left = Target.Offset(, 1).Left + 5
   Image1.Top = Target.Offset(, 1).Top
   Image1.Visible = True
   End If
End Sub