Filtres avances et export

Bonjour a tous!

Je me permets de solliciter votre aide car je suis bloquee et j'arrive plus a prendre de recul...

J'ai un tableau alimente en permanence en page "Main", et je dois le trier de deux manieres:
- par Responsible Lead, puis coller le resultat dans une feuille separee. En gros, une feuille = Un responsible lead
- puis je dois aussi pouvoir faire des filtres sur d'autres criteres, et coller le resultat dans une feuille "Advanced Filter". Celle ci est utilisee comme feuille de brouillon, je colle le resultat, je l'imprime et j'efface...

Mon souci est que:
- dans la recherche par Responsible Lead, des lignes apparaissent alors qu'elles ne correspondent pas a mon critere
- dans la recherche "Advanced Filter", je suis pas fichue de pourvoir utiliser tous les criteres...

Je vous mets le code ci dessous, ce serait genial si quelqu'un pouvait m'aiguiller...

Merci a tous et tres bonne journee!

Va filtrer le tableau selon le critere "contient Ray"Sub Ray()
Sheets("Main").Select
Selection.AutoFilter Field:=3, Criteria1:="=*Ray*"
Range("A2:G25000").Select
Selection.Copy
Sheets("Ray").Select
Range("A3").Select
ActiveSheet.Paste
End Sub

Va initialiser la recherche sur la feuille "advanced Filter"
Sub CommandButton1_Click()
Sheets("Advanced Filter").Range("A3:G4").ClearContents
Sheets("Advanced Filter").Range("A18:G20000").ClearContents
End Sub

Va filtrer la base de donnees selon les criteres choisis
Sub CommandButton2_Click()
Sheets("Main").Range("A1:G" & Range("A65536").End(xlUp).Row).AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:=Range("A1:G4"), _
CopyToRange:=Range("A18:G18"), Unique:=False
End Sub