' ActiveWorkbook.Worksheets("Données").Sort.SortFields.Clear
' ActiveWorkbook.Worksheets("Données").Sort.SortFields.Add Key:=Range("C5:C88") _
' , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' ActiveWorkbook.Worksheets("Données").Sort.SortFields.Add Key:=Range("B5:B88") _
' , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' ActiveWorkbook.Worksheets("Données").Sort.SortFields.Add Key:=Range("H5:H88") _
' , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' With ActiveWorkbook.Worksheets("Données").Sort
' .SetRange Range("A5:O88")
' .Header = xlGuess
' .MatchCase = False
' .Orientation = xlTopToBottom
' .SortMethod = xlPinYin
' .Apply
' End With