Sub Extraction1mois()
Dim DernLigne As Long
DernLigne = Sheets("Data").Range("A1048576").End(xlUp).Row
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Name = "Extraction"
Sheets("Data").Range("A1:K" & DernLigne).AdvancedFilter(Action:=xlFilterCopy, CriteriaRange:=Sheets("Data").Range("A1:K2"),Field:=8, Criteria:= ActiveWorkbook.ActiveSheet.Name, Field:=11, Criteria1:=">=31",CopyToRange:=Sheets("Extraction").Range("A1:K1"), Unique:=False)
End Sub