Private Sub Workbook_Open()
Dim f As Worksheet, trouve As Boolean
trouve = False
For Each f In ActiveWorkbook.Worksheets
If f.Name = "Feuil1" Then
trouve = True
Exit For
End If
Next
If trouve Then
Sheets("Feuil1").Activate
Else
Sheets("Feuil2").Activate
End If
End Sub