Sub Tri()
Dim plage As Range
' Macro1 Macro
With ActiveSheet
Set plage = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
End With
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=plage, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange plage
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub