Sub Macro_a_affecter_a_1_seul_Bouton()
'ici mettre le nom des feuilles selon les besoins
MasqueDemasque "Feuil1", "Feuil3"
'NB:Evidemment les feuilles doivent exister dans le classeur
'et les noms dans la macro doivent être rigoureusement identiques aux noms réels des feuilles
End Sub
Private Sub MasqueDemasque(ParamArray feuilles() As Variant)
Dim wb As Workbook, i&, vArr()
Application.ScreenUpdating = False
vArr = feuilles: Set wb = ActiveWorkbook
For i = 0 To UBound(vArr)
wb.Sheets(vArr(i)).Visible = Not wb.Sheets(vArr(i)).Visible
Next i
End Sub