Sub CopieObjets()
'ouvre le classeur...
Workbooks.Open ("d:\fichiersource.xlsx")
Nom_Fichier_Source = ActiveWorkbook.Name
Workbooks.Add (1)
Nom_Fichier_Final = ActiveWorkbook.Name
Workbooks(Nom_Fichier_Source).Sheets(1).DrawingObjects.Select
Selection.Copy
Workbooks(Nom_Fichier_Final).Activate
Range("A62").Select
Workbooks(Nom_Fichier_Final).Sheets(1).Paste
End Sub