Sub AjoutImageFeuille()
Dim Shp As Shape
Dim Fichier As String
Dim Cell As Range
Fichier = "C:\Documents and Settings\mimi\dossier\Image2.jpg"
Set Cell = Range("B10")
'expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
Set Shp = Feuil1.Shapes.AddPicture _
(Fichier, msoFalse, msoCTrue, Cell.Left, Cell.Top, Cell.Width, Cell.Height)
End Sub