Sub test()
For i = 1 To Sheets.Count
If Sheets(i).Name = "Feuil1" Or Sheets(i).Name = "Feuil3" Then Sheets(i).Visible = True Else Sheets(i).Visible = 0
Next
Sheets("Feuil1").Select
ActiveWindow.NewWindow
ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlVertical
Windows(ThisWorkbook.Name & ":1").Activate
Sheets("Feuil3").Select
End Sub