Option Explicit
Sub test()
Dim Photo As String
Dim Largeur As Double
Photo = "c:\temp\Humpback Whale.jpg"
Worksheets("Analyse").Range("A1").Select
Worksheets("Analyse").Pictures.Insert(Photo).Select
' Largeur = 59.25 / Selection.ShapeRange.Height
Largeur = 242 / Selection.ShapeRange.Height
Selection.ShapeRange.ScaleHeight Largeur, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth Largeur, msoFalse
End Sub