Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
Dim T
T = Array(1, 28, 68, 117) 'c'est pour décaler de feuille en feuille à compléter.
'On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
If IsArray(PicList) Then
For lloop = LBound(PicList) To UBound(PicList)
Set Rng = Range("Q" & T(lloop - 1)) 'Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lloop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Sheets("DossierDiag").[Q1:AE1].Width, [Q1:Q24].Height)
sShape.Name = "Image " & lloop 'mettre un nom, ce sera plus facile de le supprimer par la suite
Next
End If
End Sub