Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim num As Integer 'déclare la variable num (NUMéro)
If Left(Sh.Name, 1) = "S" Then 'condition : si le nom de l'onglet commence pas "S"
On Error Resume Next 'gestion des erreurs (si un onglet a un nom ne comportant pas de numéro cela provoque une erreur)
num = CInt(Mid(Sh.Name, 2)) 'définit le numéro
If Err <> 0 Then Exit Sub 'si il y a erreur, sort de la procédure
On Error GoTo 0 'fin de la gestion des erreurs
Select Case num 'agit en fonction du numéro
Case 1 To 52 'de 1 à 52
ActiveWindow.Zoom = 75 'zoom 75%
End Select 'fin de l'actikon en fonction du numéro
End If 'fin de la condition
End Sub