Bonjour,
Un exemple à adapter.
Les données sont sous forme de tableau structuré.
Cdlt.
Public Sub SortData()
Dim TD As Range
Set TD = Range("T_Data")
If TD.ListObject.DataBodyRange Is Nothing = False Then
With TD.ListObject.Sort
.SortFields.Clear
.SortFields.Add Key:=TD(0, 1), Order:=xlAscending
.SortFields.Add Key:=TD(0, 2), Order:=xlDescending
.Header = xlYes
.Apply
End With
End If
End Sub