Windows("feuilleenvoie.xls").Activate
Range("D3:F12").CopyPicture ' La plage de cellules D3:F12 est copiée dans le Presse-papiers en tant qu'image
Windows("bdd.xls").Activate
Cells(11, indexcolonne).Select
ActiveSheet.Paste ' L'image est collée dans la feuille
Selection.Name = "Mon image" ' renomme l'objet