Sub MasqueTout() ' Masque les feuilles de 1 à 75
Dim N%: Application.ScreenUpdating = False
For N = 1 To 75: Sheets(CStr(N)).Visible = False: Next N
End Sub
Sub ToutVoir() ' Feuilles de 1 à 75 visibles
Dim N%: Application.ScreenUpdating = False
For N = 1 To 75: Sheets(CStr(N)).Visible = True: Next N
End Sub
Sub VoirFeuilleX() ' Voir la feuille dont le nom est en H8
Dim N%: Application.ScreenUpdating = False
Sheets(CStr([H8])).Visible = True
End Sub
Sub MasquerFeuilleX() ' Masque la feuille dont le nom est en H8
Dim N%: Application.ScreenUpdating = False
Sheets(CStr([H8])).Visible = False
End Sub