Ajout d'une 3ieme fenetre

Bonjour a tous, depuis que je roule mon fichier excel 2003 avec mon nouveau PC et Windows 10, j'ai des messages d'erreur lorsque j'essaie de redimensionner les fenetres. Lorsque j'ai 2 fenetres, la solution a ete d'ajouter ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlVertical avant les TOP,LEFT,WIDTH,HEIGHT, si non ca bug. Par contre je n'ai pas trouve de solutions pour l'ajout d'une troisieme fenetre, que je veux placer en bas a droite.. Avez-vous une idee.

Private Sub CommandButton14_Click() '<OPEN> Affichage de la fenetre "memoire"
Dim fin&
    win3 = True
If actif3 = False Then
    actif3 = True 'on ajoute une fenetre memoire
    Application.ScreenUpdating = False
    ActiveWindow.NewWindow
    Sheets("EPE").Select
    Rows("3:3").Select
    ActiveWindow.FreezePanes = True
    ActiveWindow.DisplayWorkbookTabs = False
    ActiveWindow.DisplayHeadings = False
    With ActiveWindow    'fenetre EPE
        .Top = 120
        .Left = 665
        .Width = 350
        .Height = 160
        ActiveWindow.zoom = 80
        ActiveWindow.DisplayHorizontalScrollBar = False
    End With
    Windows("LOGICIEL 60.xls:3").Activate
  ActiveWindow.ScrollColumn = 65
  fin = Range("BM65000").End(xlUp).Row    'position de la derniere ligne du tableau
  Application.ScreenUpdating = True
  Range("BM" & fin + 1).Select   'pour s'assurer que cette location est toujours a l'ecran
End If
End Sub