une macro de 2007 vers 2003

bonsoir
j'ai un petit soucis avec une macro faite avec office 2007 et appliquer dans office 2003.
c'est une macro pour faire un tri,avec 2007 pas de probleme,mais j'ai un probleme avec 2003.
auriez vous une idée ?
Sub tri()

ActiveWorkbook.Worksheets("Database").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Database").Sort.SortFields.Add Key:=Range( _
"A2:A2002"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Database").Sort
.SetRange Range("A1:E2002")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
merci