Tri sur vba

Bonjour,
J'ai l'impression que le numéro de ligne en [A :A] est complétement inutile puisqu'il n'a aucun rapport avec le reste de la ligne.
A supprimer ou alors à quoi vous sert-il .... ?
L'ordre de tri se résume à cette ligne :
Columns("A:X").Sort Key1:=Columns("B"), Order1:=xlAscending, Key2:=Columns("C"), Order2:=xlAscending, Header:=xlGuess
Le [Columns("A:X").] fait référence aux les colonnes du tableau, à adapter selon besoin.

coucou,

voici le code vba :

sub tri
i=1
' permet de définir le nombre de lignes de ton tableau grace à la variable i
do while cells(I,1) <> ""
i=i+1
loop

Range(cells(1,2),cells(i,10).Select 'sélectionnes la plage de la cellule B1 à Ji
==> J représente par le 10 (si tu veux t'arrêter avant une autre colonne, remplace le 10 par le numéro de clonne )et i représentant la dernière ligne de ton tableau

'Pour la suite remplaces Feuil1 par ton nom de feuille
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(cells(2,2),cells(i,2)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(cells(2,4),cells(i,4)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range(cells(2,2),cells(i,10))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
end sub