Probleme Tri automatique avec VBA

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim i&, j&
Dim Tableau()
ReDim Tableau(1 To 5, 1 To 1)
Worksheets("Résultat").Range("A11:E65536").Cells.Clear
With Sheets("Inscr.")
    For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
        For j = 20 To .Cells(1, Columns.Count).End(xlToLeft).Column
            If .Cells(i, j).Value = "x" Then
                ReDim Preserve Tableau(1 To 5, 1 To UBound(Tableau, 2) + 1)
                Tableau(1, UBound(Tableau, 2)) = .Cells(i, 4)
                Tableau(2, UBound(Tableau, 2)) = .Cells(i, 5)
                Tableau(3, UBound(Tableau, 2)) = .Cells(i, 6)
                Tableau(4, UBound(Tableau, 2)) = .Cells(1, j).Value
                If .Cells(i, j + 1).Value = "" Then
                    Tableau(5, UBound(Tableau, 2)) = "Participation"
                Else
                    Tableau(5, UBound(Tableau, 2)) = .Cells(i, j + 1).Value
                End If
            End If
        Next j
    Next i
End With
Cells(10, 1).Resize(UBound(Tableau, 2), UBound(Tableau, 1)) = Application.Transpose(Tableau)
Worksheets("Résultat").Cells.Columns.AutoFit
Worksheets("Résultat").Range("C11:C65536").HorizontalAlignment = xlCenter
Worksheets("Résultat").Range("C11:C65536").NumberFormat = "0#"
derlin = Worksheets("Résultat").Range("E65536").End(xlUp).Row
For Each Cell In Worksheets("Résultat").Range("E11:E" & derlin)
   If Cell.Value = "Arg" Or Cell.Value = "Argent" Or Cell.Value = "ARG" Then
      Cell.Interior.ColorIndex = 15
   End If
Next
For Each Cell In Worksheets("Résultat").Range("E11:E" & derlin)
   If Cell.Value = "Or" Or Cell.Value = "OR" Then
      Cell.Interior.ColorIndex = 44
   End If
Next
For Each Cell In Worksheets("Résultat").Range("E11:E" & derlin)
   If Cell.Value = "Bro" Or Cell.Value = "Bronze" Or Cell.Value = "BRO" Then
      Cell.Interior.ColorIndex = 40
   End If
Next
    ActiveWorkbook.Worksheets("Résultat").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Résultat").Sort.SortFields.Add Key:=Range( _
        "E12:E" & derlin), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "OR,ARG,Participation", DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Résultat").Sort
        .SetRange Range("A11:E" & derlin)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Application.ScreenUpdating = True
End Sub