XL 2016 Classement selon plusieurs critères

ActiveWorkbook.Worksheets("YVV").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("YVV").Sort.SortFields.Add2 Key:=Range("A2:A11"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
    With ActiveWorkbook.Worksheets("YVV").Sort
        .SetRange Range("A2:R11")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("A1").Select

Sub trier()
   Range("a1:r11").Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlYes, MatchCase:=False
End Sub

Sub trier()
   Range("a2:r11").Sort key1:=Range("a2"), order1:=xlAscending, Header:=xlNo, MatchCase:=False
End Sub