Vous pouvez utiliser le code ci-dessous pour trier les données par la colonne spécifiée.

Sub SortDataHeader()
Range("DataRange").Sort
Keyl:=Range("A1"), Orderl:=xlAscending, Header:=xlYes
End Sub

Notez que j’ai créé une plage nommée avec le nom « DataRange » et que je l’ai utilisée à la place des références de cellule.
De plus, trois paramètres clés sont utilisés ici :
• Clé 1 : Il s’agit de la clé sur laquelle vous souhaitez trier l’ensemble de données. Dans l’exemple de code ci-dessus, les données seront triées en fonction des valeurs de la colonne A.
• Ordre : Ici, vous devez spécifier si vous souhaitez trier les données par ordre croissant ou décroissant.
• En-tête : Ici, vous devez spécifier si vos données ont des en-têtes ou non.