Bonjour,
Si je comprends bien > tu veux masquer toutes les feuilles visibles ...
Mais il va falloir en garder une visible > sinon, Excel va rouspéter ...
Un essai ...
Dans un Module ...
Sub MasquerLesFeuilles()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Feuil1" Then ' << adapter le nom de la feuille
If Sh.Visible = xlSheetVisible Then Sh.Visible = xlSheetHidden
End If
Next Sh
End Sub
ric