tri et recopie automatique en fonction critere

bonjour, j'ai un souci avec cette macro : l'idée est de recopie sur des feuilles créees (le mieux serait qu'il les cree avec la macro) le résultat d'un filtre
4 critères sont nécessaire , le premier fonction mais pas les autres , pourquoi ???

merci de votre réponse


Sub Tri_recopie()
'

Rows("14:14").Select -> c'est à partir de cette ligne que le tri commence
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="=*toto*", Operator:=xlAnd
Cells.Select
Selection.Copy
Sheets("toto").Select
Application.CutCopyMode = False
Sheets("feuille d'origine").Select
Selection.Copy
Sheets("toto").Select -> le mieux serait qu'il cree cette feuille
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-9 -> ??????
ActiveSheet.Paste
Cells.Select -> pour annuler le filtre sur la feuille d'origine
Selection.AutoFilter


Rows("14:14").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="=*tata*", Operator:=xlAnd
Cells.Select
Selection.Copy
Sheets("tata").Select
Application.CutCopyMode = False
Sheets("feuille d'origine").Select
Selection.Copy
Sheets("tata").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-9
ActiveSheet.Paste
Cells.Select
Selection.AutoFilter


Rows("14:14").Select
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="=*titi*", Operator:=xlAnd
Cells.Select
Selection.Copy
Sheets("titi").Select
Application.CutCopyMode = False
Sheets("feuille d'origine").Select
Selection.Copy
Sheets("titi").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-9
ActiveSheet.Paste
Cells.Select
Selection.AutoFilter


Rows("14:14").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:="=*tutu*", Operator:=xlAnd
Cells.Select
Selection.Copy
Sheets("tutu").Select
Application.CutCopyMode = False
Sheets("feuille d'origine").Select
Selection.Copy
Sheets("tutu").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-9
ActiveSheet.Paste
Cells.Select
Selection.AutoFilter

End Sub