XL 2013 afficher une photo automatiquement en fonction du nom de cellule

IMAGE1.Picture = LoadPicture("c:\" & "mon_dossier_image" & "\" & [a1] & ".bmp")

Sub essai()
Dim i As Integer, lig As Long, nom As String, _
répertoirePhoto, img

  With Feuil1
lig = .Range("a65536").End(xlUp).Row + 1
For i = 2 To lig
   nom = ActiveSheet.Range("a" & i)
If nom <> "" Then
  répertoirePhoto = ThisWorkbook.Path & "\" & nom & ".jpg"
  Set img = ActiveSheet.Pictures.Insert(répertoirePhoto)
  img.Left = Range("b" & i).Left
  img.Top = Range("b" & i).Top
  img.Name = nom
  End If
  Next
  i = i + 1
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, lig As Long, nom As String, _
répertoirePhoto, img

Application.EnableEvents = False
 lig = ActiveSheet.Range("a65536").End(xlUp).Row + 1
 ActiveSheet.DrawingObjects.Delete
  
lig = Range("a65536").End(xlUp).Row + 1
For i = 2 To lig
   nom = Range("a" & i)
If nom <> "" Then
  répertoirePhoto = ThisWorkbook.Path & "\" & nom & ".jpg"
  Set img = ActiveSheet.Pictures.Insert(répertoirePhoto)
  img.Left = Range("b" & i).Left
  img.Top = Range("b" & i).Top
  img.Name = nom
  End If
  Next
  i = i + 1

Application.EnableEvents = True

End Sub