Sub test()
ActiveSheet.Pictures.Insert( _
"C:\Program Files\Fichiers communs\Microsoft Shared\Clipart\cagcat50\an02479_.wmf" _
).Select
Selection.ShapeRange.IncrementLeft (ActiveCell.Width - Selection.ShapeRange.Width) / 2
Selection.ShapeRange.IncrementTop (ActiveCell.Height - Selection.ShapeRange.Height) / 2
End Sub
With MyPicture.ShapeRange
.LockAspectRatio = msoFalse
.Height = MyCell.Height
.Width = MyCell.Width
End With