Sub selectionner_image()
If MsgBox("Parcourir pour sélectionner la photo à insérer?", vbYesNo, "Insertion de la photo") = vbYes Then
reponse = Application.Dialogs(xlDialogInsertPicture).Show
If reponse = True Then
With Selection.ShapeRange
.LockAspectRatio = msoTrue
.ScaleHeight 1, False
.ScaleWidth 1, False
.Height = MaHauteur
'.Width = MaLargeur
.LockAspectRatio = msoTrue
.IncrementTop 0
.IncrementLeft 0
.ZOrder msoBringToFront
End With
End If
End If
End Sub