[XL-2003] Macro Tri

Bonjour, j'ai un bout de code qui me permets de faire un tri sur des collones, bien malheuresuement cela ne marche pas...je ne comprends pas pourquoi j'ai une erreur dès le debut sur la ligne :
ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Clear

pour info je suis sur Excel 2003 SP3

Merci de votre aide, Jérôme.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub tri()
'
' tri Macro
'
 
Sheets("Liste").Select
    Columns("A:E").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Add Key:=Range("A1:A417") _
        , SortOn:=xlSortOnValues, Order:=xlAscending,  DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Liste").Sort.SortFields.Add Key:=Range("D1:D417") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Liste").Sort
        .SetRange Range("A1:E417")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("BaseSalary").Select
 
End Sub