Dim Fichier As String
Dim objImg As Object
Dim Emplacement As Range
Fichier = "C:\dossier\nom image.jpg"
Set objImg = ActiveSheet.Pictures.Insert(Fichier)
Set Emplacement = ActiveCell
Set objImg = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
With objImg.ShapeRange
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With