Masquer ou démasquer toute les feuilles

Bonjour,

Je recherche un code pour masquer ou afficher toute les feuilles sauf deux "accueil et recap"

j'ai ceci pour masquer ou démasquer toute les feuilles sauf une

Sub r()
Sub masquer_démasquer()
Dim oSh As Object
   For Each oSh In ThisWorkbook.Sheets
      If oSh.Name <> "Accueil" Then oSh.Visible = Not oSh.Visible
   Next oSh
End Sub

Merci de votre aide

Cordialement

Max

Bonjour,

Peut-être comme cela

Sub r()
Sub masquer_démasquer()
Dim oSh As Object
   For Each oSh In ThisWorkbook.Sheets
      If oSh.Name <> "Accueil" Or oSh.Name <> "recap" Then oSh.Visible = Not oSh.Visible
   Next oSh
End Sub

Bonne Journée

Bonjour DL_13

J'ai un message d'erreur "400"

@+

et merci

Max

Bonjour le fil

Il y'a 2 sub qui ce suivent !?

Et pourquoi ne pas appeler un chat un chat

Une feuille Excel est certe un objet mais surtout et avant tout une WorkSheet

Sub masquer_démasquer()
Dim Sht As WorkSheet
   For Each Sht In ThisWorkbook.Sheets
      If Sht.Name <> "Accueil" Or Sht.Name <> "recap" Then Sht.Visible = Not Sht.Visible
   Next Sht
End Sub

A+

Re, Bonjour BrunoM45,

Il faut changer le Or en And et effacer le Sub r()

et je suis tout à fait d'accord avec Bruno

Bonne Journée

Re,

Je vous remercie tous les deux et vous souhaite une bonne journée

Nickel

Max