Bonjour,
c'est possible mais ce n'est pas avec le fichier que tu as joint que je vais pouvoir t'aider. (la feuillle à trier manque !)
tu devrais pouvoir te débrouiller tout seul
With Worksheets("Audit") ' la feuille à trier
dl = .Cells(Rows.Count, 1).End(xlUp).Row ' la dernière ligne utile sur la feuille à trier sur base la colonne A(=1)
.Range("A6:BH" & dl).Sort key1:=.Range("A6"), order1:=xlAscending, key2:=.Range("B6"), order2:=xlAscending, Header:=xlNo
'range("A6:BH" & dl) plage à trier
' key1=range("A6") premier critère de tri est en colonne A
' key2=range("B6") deuxième critère de tri est en colonne B
End With