trier un tableau de 10 lignes

Sub Tri()
    Dim ColDeb As Byte, ColFin As Byte
    Dim LigDeb As Integer, LigFin As Integer
    Dim CptLig As Integer
    Dim Ordre As XlSortOrder
    
    Ordre = xlAscending' Ici tu peux changer l ordre de tri
        
    ColDeb = 2 ' Ici il faut indiquer le numero de la 1ere colone de ton tableau
    LigDeb = 4 ' Ici il faut indiquer le numero de la 1ere ligne de ton tableau
    
    ColFin = Cells(LigDeb, ColDeb).End(xlToRight).Column
    LigFin = Cells(LigDeb, ColDeb).End(xlDown).Row
    
    For CptLig = LigDeb To LigFin
        Range(Cells(CptLig, ColDeb), Cells(CptLig, ColFin)).Sort Key1:=Cells(CptLig, ColDeb), Order1:=Ordre, Orientation:=xlLeftToRight
    Next
End Sub