pour sélectionner les feuilles à afficher ou à masquer, tu peux utiliser un array du genre :
Sub AfficheCache(OnOff As Boolean)
Dim Ws
Application.ScreenUpdating = False
For Each Ws In Array("Feuil1", "Feuil2", "Feuil3")
Worksheets(Ws).Visible = OnOff
Next Ws
Application.ScreenUpdating = True
End Sub
Sub Teste()
AfficheCache True
End Sub
Evidemment, à toi de mettre dans ton array le nom des feuilles à sélectionner