trier les données

Bonjour a tous,
Je dois trier les donnees d'un tableau par ordre croissant de la colonne D.
Le problème, c'est que le haut du tableau est toujours le même, mais que le nombre de ligne n'est pas fixe( ça peut aller jusqu'a 30000...)

J'ai donc essayé avec le code :

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range( _
"D2:S2", Selection.End(xlDown)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("D2:S2", Selection.End(xlDown))

Mais ça ne marche pas, grrrrr....

Je joint un fichier exemple pour plus de clarté.

Merci d'avance pour votre aide.
Bonne journée

Bbobb