XL 2019 Images disparaissent après suppression source/lien

Sub AffImage()
    Const hDefaut = 200

    Dim msg As String, r As Long, h As Long
    Dim C As Range, numfich As Integer
    Dim fich
    r = 1
    h = 200
    For Each C In Selection 'c.ColumnWidth = 10
        fich = C.Value
        If fich <> "" Then
        C.RowHeight = h
   ActiveSheet.Pictures.Insert(fich).Select
            With Selection.ShapeRange
    .Name = "Photo"
    .LockAspectRatio = msoTrue
    .Height = [D14:H14].Height + 115
    .Left = [D14:H14].Left + 100
    .Top = [D14:H14].Top - 343
                End With
        End If
    Next C
End Sub