Sub Trier()
Application.ScreenUpdating = False
For N = 1 To 12 ' 12 car 12 listes à traiter, à modifier selon besoin
Set Plage1 = Range(Cells(1, N), Cells(1000, N))
Set Plage2 = Range(Cells(2, N), Cells(1000, N))
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Plage2, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Plage1: .Header = xlYes: .MatchCase = False
.Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
End With
Next N
End Sub