XL 2016 Affichage d'une photo dans une zone d'un tableau

Sub Load_Photo()
Dim Photo_Path As String
Dim Photo_File As String
Dim Shape_Name As String
    
    With ActiveSheet
        For Each Elem In .Range("A1").Cells
            If Elem.Text <> vbNullString Then
                Photo_Path = ThisWorkbook.Path & "\"
                Photo_File = Photo_Path & Elem.Text & ".jpg"
                Shape_Name = "Photo_" & Elem.Text
                If Dir(Photo_File) <> vbNullString Then
                    On Error Resume Next
                        Shapes(Shape_Name).Delete
                    On Error GoTo 0
                    With .Pictures.Insert(Photo_File).ShapeRange
                        .Name = Shape_Name
                        .LockAspectRatio = msoFalse
                        Set E = Elem.Offset(, 1)
                            .Height = E.Height
                            .Width = E.Width
                            .Top = E.Top + (E.Height - .Height) / 2
                            .Left = E.Left + (E.Width - .Width) / 2
                        Set E = Nothing
                    End With
                End If
            End If
        Next
    End With
    
End Sub