salut,
je ne sais pas vraiment si je vais repondre à ta question mais peut etre d'aiguiller.
Sheets(sheets.count) te donne le dernier onglet de ton classeur.
après, est ce que
sheets(1) shift Sheets(sheets.count) je ne sais pas
à tt hasrd
Sub Macro1()
ActiveWindow.NewWindow
Windows.Arrange ArrangeStyle:=xlHorizontal
Windows(ThisWorkbook.Name & ":1").Activate
Sheets(1).Select
Windows(ThisWorkbook.Name & ":2").Activate
Sheets(Sheets.Count).Select
End Sub
@+