Import d'images en excel via un macro

Salut les pros...

J'ai reçu un macro pour importer des images de mon disque dur dans un excel d'un collègue, mais il m'affiche qu'il cherche un "objet".
C'est un collège allemand, donc les commentaires sont en allemand :-)

Qu'est-ce que j'ai oublié?
J'ai adapté le "pfad" qui est la source des images
dans l'excel j'ai la colonne A vide et la référence en B.
Le tab s'apelle "Tabelle1"
est ce que je dois traduir le programation?


Sub import()

suffix = ".jpg" ' Das Suffix der Bilder

pfad = "M:\BILDER_FOURNISSEURS\"

Start = InputBox("Ab welcher Zeile sollen Bilder eingefügt werden?", "Startzeile", 2)
Ende = InputBox("Bis zu welcher Zeile sollen Bilder eingefügt werden?", "Letzte Zeile", 58)
Spalte = InputBox("In welche Spalte sollen die Bilder eingefügt werden?", "Spalte", "A")
Hoehe = InputBox("Welche Höhe soll das Bild haben?", "Zeilenhöhe", 60)

' Importieren von Zeile Start bis Ende
For Z = Start To CInt(Ende)

dateiname = CStr(Tabelle1.Cells(Z, 2).Text)
dateiname = pfad + dateiname + suffix

If Dir(dateiname) = "" Then ' Prüfen ob Datei vorhanden

'Mach nix

Else
Breite = 60

' With ActiveSheet.Shapes.AddPicture(StBild, True, True, Target.Offset(0, 1).Left, _
'Target.Offset(0, 0).Top, DoBreite * DoBildhoehe / DoHohe, DoBildhoehe)

ActiveSheet.Shapes.AddPicture(dateiname, False, True, Range(Spalte + CStr(Z)).Left, Range(Spalte + CStr(Z)).Top, Breite, Hoehe).Select
'MsgBox (Selection.ShapeRange.Width)

'ActiveSheet.Shapes.AddPicture(dateiname, False, True, 0, 0, 2, 2).Select
With Selection.ShapeRange
' .Left = Cells(Z, Spalte).Left
' .Top = Cells(Z, Spalte).Top
' .LockAspectRatio = msoTrue
' .Width = Cells(Z, Spalte).Width
End With

Rows(Z).RowHeight = Selection.ShapeRange.Height

End If

Next Z

End Sub