lien

Option Explicit
'http://www.excel-downloads.com/html/French/forum/messages/1_66795_66795.htm
'Michel XLD
'adaptation par Celeda pour Jean-Yves/merci mimi
'=======================================================================
Sub InsertionImageJY()
Dim Emplacement As Range
Dim image As Object
Dim ShapeObj As Object

On Error GoTo fin:
For Each ShapeObj In ActiveSheet.DrawingObjects ' boucle pour supprimer ancienne image
If ShapeObj.Name = 'cible' Then ActiveSheet.Shapes('cible').Delete
Next ShapeObj

Application.Dialogs(xlDialogInsertPicture).Show
'c'est ici que tu changes ton emplacement pour afficher ta photo/celeda
Set Emplacement = Range('K15:M15')

Set image = ActiveSheet.DrawingObjects(2) 'adapter selon nombre total de shapes dans feuille
With image.ShapeRange
.Name = 'cible' ' nommer l'image insérée ( pour la supprimer plus facilement ensuite )
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With

Exit Sub
fin:
If Err = 1004 Then MsgBox 'Insertion d'image interrompue . '
End Sub

Cliquez pour agrandir...

Sub insère_photo(feuille, destination, nom_complet)
'feuille > onglet qui contiendre la photo 'feuil1' par exemple
'destination zone contenant la photo 'A1:A5' par exemple
'nom_complet 'c:\\photos\\toto.gif'
Dim emplacement As Range
Sheets(feuille).Select
  Set emplacement = Range(destination)
    On Error Resume Next
      ActiveSheet.Shapes('cible').Delete 'cible sera le nom de la forme photo sur la feuille
    On Error GoTo 0
      ActiveSheet.Pictures.Insert(nom_comple).Select

With Selection.ShapeRange
  .Name = 'cible' ' nommer l'image insérée ( pour la supprimer plus facilement ensuite )
  .LockAspectRatio = msoFalse
  .Left = emplacement.Left
  .Top = emplacement.Top
  .Height = emplacement.Height
  .Width = emplacement.Width
End With
Range('a1').Select
End Sub

Cliquez pour agrandir...