Sub FiltreAvancé()
Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Mois" 'si j'ai bien compris
Sheets("data").Range("A1:C7").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Summary").Range("B1:B2"), CopyToRange:=Sheets("Mois").Range("A1")
End Sub