XL 2016 Masquer des plages d'onglets non contiguës (1 sur 3)

Sub Masquer_Demasquer_plage_49()
'masque tous les onglets non compris dans l'intervalle D49/F49
Application.ScreenUpdating = False 'permet de réduire le temps de traitement
Dim n1%, n2%, i%
n1 = Sheets("D49").Index
n2 = Sheets("F49").Index
For i = 2 To Sheets.Count
    Sheets(i).Visible = i >= n1 And i <= n2
Next
End Sub