XL 2019 Macro unique pour tri dan un concours avec un nombre de joueurs différents chaque feuille

Sub Tri()
  Dim derlig As Long
  derlig = Range("A" & Rows.Count).End(xlUp).Row
 
    Range("AB3:AD" & derlig).Select
    Selection.Copy
    Range("BO3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("96").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("96").Sort.SortFields.Add2 Key:=Range("BO4:BO" & derlig), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("96").Sort.SortFields.Add2 Key:=Range("BP4:BP" & derlig), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("96").Sort
        .SetRange Range("BO3:BQ" & derlig)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub