Re : Filtre Automatique Multi Feuilles
RE_
Désolé oubli du code.
Sub TRIMENSUEL()
'
' TRIMENSUEL Macro
ActiveSheet.Range("$A$3:$A$371").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "1/31/2014")
Sheets("PAUL").Select
ActiveSheet.Range("$A$3:$A$371").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "1/31/2014")
Sheets("ALICE").Select
ActiveSheet.Range("$A$3:$A$371").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "1/31/2014")
Sheets("MARC").Select
ActiveSheet.Range("$A$3:$A$371").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "1/31/2014")
End Sub