Vous trouverez ci-dessous le code qui triera les données en fonction de plusieurs colonnes :
Sub SortMultipleColumns()
With ActiveSheet. Sort
. SortFields.Add Key:=Range(”A1”) , Order:=xlAscending
. SortFields.Add Key:=Range("B1") , Order:=xlAscending
.SetRange Range("A1:C13")
.Header = xlYes
.Apply
End With
End Sub
Notez qu’ici, j’ai spécifié de trier d’abord en fonction de la colonne A, puis en fonction de la colonne B.