Figer les volets

Bonjour a tous, j'ai 2 feuilles dont les volets sont figés. Lorsque j'affiche ces 2 feuilles a coté l'une de l'autre, la feuille de droite ne possede plus ses volets. J'aimerais comprendre pourquoi.

Private Sub CommandButton5_Click() 'BOUTON RAM
    Windows(ThisWorkbook.Name & ":1").Activate 'fenetre principale
    Sheets("RAM").Select
    ActiveWindow.DisplayHeadings = False
    Cells(2, 2).Select
    With ActiveWindow
        .Top = -20
        .Left = 0
        .Width = 800
        .Height = 800
    End With
    Windows(ThisWorkbook.Name & ":2").Activate
    Sheets("RAM2").Select
    ActiveWindow.DisplayHeadings = False
    Cells(2, 2).Select
    With ActiveWindow
        .Top = -20
        .Left = 800
        .Width = 460
        .Height = 800
    End With

End Sub

Bonjour,

En manuel ça fait pareil, réactive-les.

    Cells(2, 2).Select
    ActiveWindow.FreezePanes = True

eric

Parfait, ca confirme que mon code etait bon.

Merci Eric!