Sub Extraction1mois()
Dim DernLigne As Long, nom As String
nom = ActiveWorkbook.ActiveSheet.Cells(1, 11).Select
DernLigne = Sheets("Data").Range("A1048576").End(xlUp).Row
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Name = "Extraction"
'N1 reste vide
'critères
Sheets("Data").Range("N2").FormulaLocal = "=et(H2 = """ & nom & """; K2 >= 31)"
Sheets("Data").Range("A1:K" & DernLigne).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Data").Range("N1:N2"), CopyToRange:=Sheets("Extraction").Range("A1:K1"), Unique:=False
End Sub