Source de mon image dans OLEobject

[Airone784]

Bonjour,

Avec mon code je souhaite insérer dans ma feuille une image :

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

Problème : j'ai un code erreur d'execution 1004 : impossible de lire la propriété add de la classe OLEobjects. Je ne comprends pas pourquoi...

Merci d'avance pour votre aide

Bonne journée