Lancer une macro sur plusieurs feuilles sauf une

Bonjour a tous ,

J essaye de réaliser un planning pour nos patients le but est de masquer et de trier les soins pour chacun .

Sur l exemple j arrive a faire fonctionner sur une feuille (ch201) mais je voudrais que les macros s exécutent également sur les feuilles correspondantes au chambres suivantes en évitant la feuille 1 qui est la feuille de saisie des examens .

j ai essayé par moi même mais mon code ne doit pas être au point d ou mon appel a l aide, merci.

Bonjour

Testes ces macros

Sub masquer()
Dim sht As Worksheet
  For Each sht In ActiveWorkbook.Worksheets
  If sht.Name <> "Feuil1" Then
    sht.Select
    Range("B2").AutoFilter Field:=1, Criteria1:="<>0"
  End If
  Next sht
End Sub

Sub trier()
'
' trier Macro
'
Dim sht As Worksheet
  For Each sht In ActiveWorkbook.Worksheets
    If sht.Name <> "Feuil1" Then
      sht.Select
      Range("B3:B20").Select
      sht.Sort.SortFields.Clear
      sht.Sort.SortFields.Add Key:=Range("B2"), _
                    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
                    xlSortTextAsNumbers
      With sht.Sort
        .SetRange Range("B3:C20")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
      End With
      Range("C18").Select
    End If
  Next sht
End Sub

Autant pour le tri j'arrive à comprendre mais pour le filtre je ne saisis pas

Bonjour Banzai64

Merci beaucoup de cet accueil et de la réponse je viens d'essayer et ça fonctionne a merveille je vais pouvoir poursuivre mon projet

Pour répondre a la question en fait cela me permet de masquer la ligne quand la valeur est a zéro et donc de ne laisser apparaître que les examens qui les concernent on leur distribue le planning, dans la version finale c est mieux présenté.

Bonne journée et merci encore