Bonjour
Essayez ce code en lieu et place de celui que vous avez mis dans Thisworkbook
Private Sub Workbook_Open()
Dim i As Byte
Sheets("accueil").Visible = -1
For i = 1 To Sheets.Count
If UCase(Sheets(i).Name) <> "ACCUEIL" Then
Sheets(i).Visible = 2
End If
Next i
End Sub
Attention que cela suppose que vos macros sont bien activées sans quoi le code ne masquera rien
Cordialement