Code VBA

Sub Macro4()
'
' Macro4 Macro
'

'
    Range("B10:J315").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("Feuil2!Criteria"), CopyToRange:=Range("Feuil2!Extract"), Unique:=False
    Range("M10:S81").Select
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Add Key:=Range("S11:S81") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Add Key:=Range("O11:O81") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil2").Sort.SortFields.Add Key:=Range("N11:N81") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil2").Sort
        .SetRange Range("M10:S81")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("R10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.Copy
    Sheets("Feuil3").Select
    Range("B12").Select
    ActiveSheet.Paste
    Range("G1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$83"
    Range("A12").Select
End Sub