Graphique coupé lors d'un copier-coller

[LaurentH]

Bonjour à tout le forum,

Ma macro enregistrée en automatique qui fait entre autre un copier-coller de deux grapiques coupe une partie du deuxième graphique qui n'est plus récupérable en étirant la zone graphique. Bien sûr, cela ne se produit pas sur tous les postes........ et pour moi le VB est du chinois. Voici la partie de la macro concernée et merci par avance pour l'aide apportée.

Windows('Bilan 2005.xls').Activate
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets('Graphiques').Select
ActiveSheet.ChartObjects('Graphique 1025').Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows('Bilan 2005.xls').Activate
ActiveSheet.Shapes.Range(Array('Chart 1025', 'Chart 1026')).Select
Application.CutCopyMode = False
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMaximized
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMaximized
Selection.Copy
Range('A1').Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets('Gestion').Select
Range('A1').Select
Windows('A renommer1.xls').Activate
ActiveWindow.SmallScroll Down:=12
Range('A28').Select
ActiveSheet.PasteSpecial Format:='Image (métafichier amélioré)', Link:= _
False, DisplayAsIcon:=False
Selection.ShapeRange.IncrementLeft 18.75
Selection.ShapeRange.IncrementTop -0.75
ActiveWindow.ScrollRow = 1
Range('A3').Select
Sheets('Page 1').Select
Range('A1').Select
End Sub