Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False
R$ = ""
Select Case Sh.Name
Case "Feuil1": R$ = "b:l"
Case "Feuil2": R$ = "b:m"
Case "Feuil3": R$ = "b:n"
Case "Feuil4": R$ = "b:o"
Case "Feuil5": R$ = "b:p"
End Select
If R$ > "" Then Range(R$).Select: ActiveWindow.Zoom = True
End Sub