Excel 2003. Affichez les résultats d'un tri dans un autre onglet

Option Explicit

Sub tri1()
    Dim numListe As Long, savIndex As Long, savCell As Range, c As Range
    savIndex = Cells(ActiveCell.Row, "I")
    Set savCell = ActiveCell
    ' tri PODC
    On Error Resume Next
    ' récup n° de liste personnelle
    numListe = Application.GetCustomListNum(Array("P", "O", "D", "C"))
    On Error GoTo 0
    If numListe = 0 Then
        ' liste personnelle n'existe pas, on l'ajoute
        Application.AddCustomList ListArray:=Array("P", "O", "D", "C")
        ' récup n° de liste
        numListe = Application.CustomListCount
    End If
    Range("A6:I" & Cells(Rows.Count, "A").End(xlUp).Row).Sort Key1:=Range("F7"), Header:=xlYes, OrderCustom:=numListe + 1
    'tri ss-cat, type
    Range("A6:I" & Cells(Rows.Count, "A").End(xlUp).Row).Sort Key1:=Range("D7"), Key2:=Range("H7"), _
                                                              Header:=xlGuess, DataOption2:=xlSortTextAsNumbers
    ' tri Catégorie
    On Error Resume Next
    ' récup n° de liste personnelle
    numListe = Application.GetCustomListNum(Array("Première", "Deuxième", "Troisième"))
    On Error GoTo 0
    If numListe = 0 Then
        ' liste personnelle n'existe pas, on l'ajoute
        Application.AddCustomList ListArray:=Array("Première", "Deuxième", "Troisième")
        ' récup n° de liste
        numListe = Application.CustomListCount
    End If
    Range("A6:I" & Cells(Rows.Count, "A").End(xlUp).Row).Sort Key1:=Range("C7"), Header:=xlYes, OrderCustom:=numListe + 1
    ' select ancienne cellule active
    If savCell.Row > 6 Then
        Set c = [I:I].Find(savIndex, LookIn:=xlValues, lookat:=xlWhole)
        If c Is Nothing Then
            savCell.Select
        Else
            Cells(c.Row, savCell.Column).Select
        End If
    Else
        savCell.Select
    End If
End Sub

Sub tri0()
    Dim savIndex As Long, savCell As Range, c As Range
    savIndex = Cells(ActiveCell.Row, "I")
    Set savCell = ActiveCell
    Range("A6:I" & Cells(Rows.Count, "A").End(xlUp).Row).Sort Key1:=Range("I7"), Header:=xlGuess
    ' select ancienne cellule active
    If savCell.Row > 6 Then
        Set c = [I:I].Find(savIndex, LookIn:=xlValues, lookat:=xlWhole)
        If c Is Nothing Then
            savCell.Select
        Else
            Cells(c.Row, savCell.Column).Select
        End If
    Else
        savCell.Select
    End If
End Sub

Private Sub ToggleButton1_Click()
    With ToggleButton1
        If ToggleButton1 Then .Caption = "Trié" Else .Caption = "Saisie"
        If ToggleButton1 Then
            tri1
        Else
            tri0
        End If
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 6 And Target.Column = 1 And Cells(Target.Row, "I") = "" Then
        Cells(Target.Row, "I") = Application.CountA([A:A]) - 1
    End If
End Sub