ActiveWindow.Visible = False Windows("Classeur1").Activate ActiveSheet.Shapes.Range(Array("Chart 2", "Chart 1")).Select ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlMaximized ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlMaximized Selection.Cut Sheets("Feuil2").Select Range("E7").Select ActiveSheet.Paste