Source de mon image dans OLEobject

Sub aab()
'
' aab Macro
Dim obj As OLEObject

  Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.image.1", link:=False, _
        DisplayAsIcon:=False, Filename:="T:\M.ALPINI\FI.jpg", Left:=352.5, Top:=130.5, Width:=273, Height:= _
        80.25)
   

        
    Selection.ShapeRange.ScaleWidth 0.91, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleWidth 0.93, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleWidth 0.97, msoFalse, msoScaleFromTopLeft
End Sub