intégrer et non lier une image

Bonjour à tous,

j'ai un soucis avec un code VBA repris sur ce site pour importer et ajuster plusieurs image une cellule,
mon soucis étant que les images sont lié et non intégrer au fichier excel se qui fait que lorsque je supprime ou renomme le dossier ou se trouve les photos elle n’apparaisse plus dans mon fichier excel.

voici le code que j'utilise :


Public Sub insere_image()
Dim ficimg, nbImg As Byte

On Error Resume Next
ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image", , True) ' choix nom du fichier
For Each cel In Selection
cel.Activate
nbImg = nbImg + 1
If Not ficimg(nbImg) = "" Then
ActiveSheet.Pictures.Insert(ficimg(nbImg)).Select ' insertion
With Selection.ShapeRange
.LockAspectRatio = False ' proportions d'origine lorsque vous la redimensionnez
.Top = ActiveCell.Top ' haut de la cellule
.Left = ActiveCell.Left ' gauche de la cellule
.Height = ActiveCell.RowHeight ' hauteur de la cellule
.Width = ActiveCell.Width ' largeur de la cellule
End With
End If
Next
End Sub

Merci d'avance pour votre aide