Bonjour à tous

J'essais de trier une colonne dans Excel via VBA mais j'ai quelques problèmes de gestion de format de cellule. Voici un brève idée de ce que je veux trier
20
3.5
20
1

Voici le code que j'utilise présentement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Worksheets("Grouping RA aqueous").Activate
Rows("18:2000").Select
Selection.sort Key1:=Range("D18"), order1:=xlDescending, dataoption1:=xlSortValues, ordercustom:=4, MatchCase:=False, Orientation:=xlTopToBottom
Le problème est que la valeur de 3,5 est trier comme texteèt apparait à la fin de la colonne comme ci

1
20
20
3.5

Pouvez-vous m'aider?

Merci