Bonjour.
C'est probablement parce qu'il doit toujours rester au moins une feuille affichée.
Attention à respecter partout la bonne orthographe du mot "accueil".
Il n'existe pas de feuille "Page d'acceuil"
Sachant qu'il s'agit de la seule affichée, ça provoque une erreur.
En sortant le nom de la feuille avec un Debug.Print et en modifiant la valeur dans le test, cela refonctionne correctement.
Code:
Sub CacheAutre() 'except page d'acceuil
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
Debug.Print Ws.Name
If Ws.Name <> "Page d'accueil" Then
Ws.Visible = xlSheetVeryHidden
End If
Next
End Sub