For n = 2 To Sheets("Feuil1").Range("E65536").End(xlUp).Row
Sheets.Add after:=Sheets(1)
With ActiveSheet
Worksheets("Feuil1").Range("A2") = Worksheets("Feuil1").Cells(n, 5)
Worksheets("Feuil1").Range("A4:C22").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Worksheets("Feuil1").Range("A1:C2"), CopyToRange:=Worksheets(n).Range("A1:C65536"), Unique:=False
End With
Next