bonjour stormless
sans avoir testé , je te propose:
Code:
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal, 520#, -15 + iiii, _
17#, 45#).Select
Selection.Characters.Text = i
selection.Name="AJOUT"
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, "AJOUT")).Group
Arf !!!
avais pas rafraichi !!
Bravo Catrice (peux pas penser merci Catrice sans que mes diverses "coutures" ne fremissent)