- Salut Noon,
voici une petite macro trouvée sur le présent forum, mais j'ai oublié qui en est l'auteur et où elle se trouvait.
Elle permettrait d'insérer une image et d'adapter sa taille à celle de la cellule active.
Sub InsertPicture()
Dim MyCell As Range
Dim MyPicture As Picture
Dim image$
image = "c:\windows\hlpglobe.gif" 'ou le chemin désiré
Set MyCell = ActiveCell
MyCell.Select
Set MyPicture = ActiveSheet.Pictures.Insert(image)
With MyPicture.ShareRange
.LockAspectRatio = msoFalse
.Height = MyCell.Height
.Width = MyCell.Width
End With
MyCell.Select
End Sub
J'espère que celà t'aidera,
A+ JB