Salut,
essaye le code suivant :
Sub Filtre_Auto()
For i = 1 To ThisWorkbook.Sheets.Count 'On boucle sur le nbre d'onglet du classeur
If Not Sheets(i).AutoFilterMode Then 'Si le filtre automatique n'est pas activé
Sheets(i).Cells.AutoFilter 'alors on l'active
End If
Next
End Sub
cordialement.