Sub TrierDonnees(ByVal VarFeuilleDest As Worksheet, ByVal NumCol As Long)
With VarFeuilleDest
.AutoFilter.Sort.SortFields.Clear
.AutoFilter.Sort.SortFields.Add Key:=.Range(.Cells(1, NumCol), .Cells(.Rows.Count, NumCol).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub