Problème macro insertion plusieurs photos.

[ettelofa]

Bonjour,

Nouveau sur le forum, que j'ai découvert grâce à des posts constructifs et élaborés.
Je bloque sur une macro, pour cela j'en appelle à votre aide.

Mon but/ insertion de photos (6, 8, ou 10) (n) ; sur une feuille par un bouton. (chaque photo sera choisi par l'opérateur).

Merci d'avance.

Sub insertphoto()
Dim Emplacement As Range
Dim image As Object
Dim ShapeObj As Object

On Error GoTo Fin

For i = 1 To 2 'deux pour exemple'
Fichier = "cible" & CStr(i)

For Each ShapeObj In ActiveSheet.DrawingObjects
If ShapeObj.Name = "cible" Then ActiveSheet.Shapes("cible").Delete
Next ShapeObj

Application.Dialogs(xlDialogInsertPicture).Show
Set Emplacement = Range(Choose(i, "B2😀9", "B10😀17"))

Set image = ActiveSheet.DrawingObjects(2)
With image.ShapeRange
.Name = "cible" & CStr(i)
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
Next i

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