Sub ImporterPhotoComposant()
Application.Dialogs(xlDialogInsertPicture).Show
Dim Emplacement As Range
Set Emplacement = Range("E2")
Set objImg = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
With objImg.ShapeRange
.LockAspectRatio = msoFalse
.Left = 470
.Top = 385
.Height = 100
.Width = 100
End With
End Sub