[Catrice]

Re,

Effectivement comme ceci ça ne doit pas fonctionner :
essaye ceci (non testé)

Sub test()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal, 520#, -15 + iiii, 17#, 45#).Name = "MyName"
Selection.Characters.Text = i
With ActiveSheet
Set p = .Pictures.Insert(Application.FileSearch.FoundFiles (i))
.DrawingObjects(p.Name).Left = .Columns("j").Left
.DrawingObjects(p.Name).Top = .Rows(iii).Top
.DrawingObjects(p.Name).Width = .Columns("l").Left - .Columns("j").Left
.DrawingObjects(p.Name).Height = .Rows(iii + 3).Top - .Rows(iii).Top
.DrawingObjects(p.Name).Placement = xlMoveAndSize
.DrawingObjects(p.Name).PrintObject = True

.Shapes.Range(Array(p.Name, "MyName")).Group
End Sub