Sub Macro1()
'
' Macro1 Macro
Dim col As Integer, lig As Integer, i As Integer
Range("A1").CurrentRegion.Select
col = Selection.Columns.Count
lig = Selection.Rows.Count
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
For i = 1 To col
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(Cells(1, i), Cells(lig, i)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Next
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1").CurrentRegion
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
End Sub