Sub TraitementImg()
'myDearFriend! - www.mdf-xlpages.com
Dim Emplacement As Range
Dim Fichier As String
Dim i As Byte
On Error GoTo Fin
For i = 1 To 2
Set Emplacement = Range(Choose(i, "C7:C9", "C11:F13", "C15:C17", "C20:C22", "C24:C26", "C28:C30", "C32:C34", "C36:C38", "C40:C42", "C44:C46", "C55:C57", "C59:C61", "C63:C65", "C68:C70", "C72:C74", "C76:C78", "C80:C82", "C84:C86", "C88:C90", "C92:C94", "C99:C101", "C104:C106", "C108:C110", "C112:C114", "C116:C118", "C120:C122", "C124:C126"))
Fichier = "Figure" & CStr(i)
With ActiveSheet.Pictures.Insert("F:\Documents\dl datas\Vidéothèque\Affiches de film" & Fichier & ".JPG").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:
MsgBox "Insertion d'image interrompue."
End Sub