Retirer filtre sur toutes les feuilles d'un classeur

Application.ScreenUpdating = False
For Each M In Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
    Sheets(M).Activate
    [COLOR=Red]If Sheets(M).AutoFilterMode Then[/COLOR]
    Range("B3:AE3").Select
    Selection.AutoFilter
    Range("A1:I1").Select
    [COLOR=Red]End if[/COLOR]
Next M
Application.ScreenUpdating = True

Sub test2()
'avec l'aide de SergiO
Dim ws As Worksheet
For Each ws In Worksheets
If ws.AutoFilterMode Then ws.AutoFilterMode = False
Next ws
End Sub