Salut Callistor et le Forum
Voila une macro qui fera ce que tu veux
Sub classement()
col_deb = 1
col_fin = 20
lig_deb = 1
lig_fin = 500
For ligne = lig_deb To lig_fin
Range(Cells(ligne, col_deb), Cells(ligne, col_fin)).Select
Selection.Sort Key1:=Cells(ligne, col_deb), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
Next ligne
End Sub
Amicalement Mytå