Pour coller à ton problème, et si tu as plusieurs feuilles dans ton classeurs,
active la feuille 2 et ensuite la feuille un à l'ouverture de ton classeur, cela générera l'évenement activate
Private Sub Workbook_Open()
Worksheets(2).Activate
Worksheets(1).Activate
End Sub
C'est pas très beau, mais si c'est ce que tu veux !!