Sub Tri_Mois ()
Sheets("Janvier").Select
ActiveSheet.Range("$A$5:$AE$342").AutoFilter Field:=16, Criteria1:="1"
' Février
Sheets("Février").Select
ActiveSheet.Range("$A$5:$AE$342").AutoFilter Field:=16, Criteria1:="2"
'Mars
Sheets("Mars").Select
ActiveSheet.Range("$A$5:$AE$342").AutoFilter Field:=16, Criteria1:="3"
End Sub