Voici une macro qui pourrais je pense te rendre un grand service
Sub tri_croissant()
'Obligation avant de lancer la macro de sélectionner en premier
' lieu la première ligne du tableau
Dim cellule2 As Range
cellule = InputBox("Indiquez la première ligne à selectionner sous la forme (a1:a6)")
Set cellule2 = Range(cellule)
ligne = cellule2.Row
colonnedebut = cellule2.Column
colonnefin = Cells(ligne, 256).End(xlToLeft).Column
Do Until Cells(ligne, colonnedebut).Value = ""
a = Cells(ligne, colonnedebut).AddressLocal
b = Cells(ligne, colonnefin).AddressLocal
Range(a, b).Select
Selection.Sort Key1:=Range("B" & ligne), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
ligne = ligne + 1
Loop
Range("a1").Select
MsgBox "Tri terminé"
End Sub