Importer une photo en fonction de son nom

Bonjour,

voila j'ai un dossier rempli de photos de pièces, ces photo porte le nom de la référence de la pièce qu'elle représente, je voudrai que lorsque je rentre la référence de la pièce dans un tableau, la photo de la dite pièce s'affiche.

Merci pour votre aide

Salue

Range("A2") = référence de la pièce

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = Range("A2").Address Then
    On Error GoTo 100
    Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Target.Text & ".jpg")
    Exit Sub
100
    Image1.Picture = LoadPicture()
End If

End Sub