Macro sur tout les onglets

Sub ToutesLesFeuilles()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
MsgBox Sh.Name
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub

Sub ToutesLesFeuilles()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Feuil1" Then ' ici adatper tous les noms de feuille a exclure
MsgBox Sh.Name
End If
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "Feuil1" Then ' ici adatper tous les noms de feuille a exclure
'If Sh.Name <> "Feuil1" And Sh.Name <> "Feuil2" Then ' exemple
MsgBox Sh.Name
End If
End Sub