Sub MaJ()
Dim F As Worksheet
Dim Txt As String
On Error GoTo suite
For Each F In ThisWorkbook.Worksheets
F.Activate
ActiveWindow.FreezePanes = False 'libere les volets
Txt = Txt & F.Name 'chope le nom
'deux solutions pour les filtres, avec une préferance pour la deuxième
Cells.AutoFilter
F.ShowAllData
'replace la cellule active
Range("A1").Select
suite:
Next F
MsgBox Txt
End Sub