With ActiveSheet.Shapes("Image" & cellule.Address)
.LockAspectRatio = msoFalse
.Left = cellule.Left
.Top = cellule.Top
.Width = cellule.Width
.Height = cellule.Height
End With