Si vous travaillez sur un rapport ou un tableau de bord et que vous souhaitez masquer toutes les feuilles de calcul sauf celle contenant le rapport/tableau de bord, vous pouvez utiliser ce code de macro. Cette macro masquera toute la feuille de calcul sauf la feuille active

Sub MasquerFeuillesSaufActive()
Dim feuillecal As Worksheet
For Each feuillecal  In ThisWorkbook.Worksheets
If feuillecal .Name <> ActiveSheet.Name Then feuillecal .Visible = xlSheetHidden
Next feuillecal 
End Sub