Bonsoir Jacques
Un essai avec deux "Chart"
En retirant :
Selection.ShapeRange.Group.Select
la macro :
Sub GrouperImage()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("Classeur1").Activate
ActiveSheet.Shapes.Range(Array("Chart 1", "Chart 2")).Select
Selection.Copy
Range("I12").Select
ActiveSheet.PasteSpecial Format:="Image (métafichier amélioré)", Link:=
_False, DisplayAsIcon:=False
Range("A1").Select
End Sub
fonctionne....
Affaire à suivre
@+
GD