Sub Tri_alpha()
'
' Tri_alpha Macro
'
'
For i = 1 To 6442
Range(Cells(i, 5), Cells(i, 13)).Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(Cells(i, 5), Cells(i, 13)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range(Cells(i, 5), Cells(i, 13))
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
Next i
End Sub