Dim Shp As Shape
Dim Photo As String
Dim Num As Long
Num = Sheets("Garniture").Range("B65536").End(xlUp).Row + 1
'expression.AddPicture(FileName, LinkToFile, SaveWithDocument, _
Left, Top, Width, Height)
Set Shp = Feuil1.Shapes.AddPicture(Photo, _
msoFalse, _
msoCTrue, _
Sheets("Garniture").Range("E" & Num).Left, _
Sheets("Garniture").Range("E" & Num).Top, _
Sheets("Garniture").Range("E" & Num).Width, _
Sheets("Garniture").Range("E" & Num).Height)