VBA [Excel 2003] Tri pas croissant pas décroi

Public Sub tri()  
    Dim Nb_LigneTot, i, j As Integer  
      
    Nb_LigneTot = Columns(8).Find("*", , , , xlByColumns, xlPrevious).Row  
      
'La première ligne reste inchangée dans tous les cas donc je commence a i=2  
'Il fautdra bien sur commencer a i = 3  et j = 2 si il y a une ligne d'entete, pour le reste de la macro rien ne change  
    For i = 2 To Nb_LigneTot  
        For j = 1 To i - 1  
            If Cells(i, 8).Value = Cells(j, 8).Value And Cells(i).Value <> Cells(j + 1, 8).Value And j <> i - 1 Then  
                Rows(i).Select  
                Selection.Cut  
                Rows(j + 1).Select  
                Selection.Insert Shift:=xlDown  
            End If  
        Next j  
    Next i  
End Sub