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