Sub MasquerFeuilles()
Dim Feuil As Worksheet
Application.ScreenUpdating = False
For Each Feuil In ThisWorkbook.Worksheets
If Feuil.Name <> "FA" And Feuil.Name <> "SGA" And Feuil.Name <> "Histo" And Feuil.Name <> "Mois sec" _
And Feuil.Name <> "Cum sec" Then Feuil.Visible = False
Next Feuil
End Sub