Bonjour,
Essayez avec
Sub tri_ABC_croissant()
Range("a2:o" & ActiveSheet.[a65536].End(xlUp).Row & "").Sort Key1:=Range("O2"), _
Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub
Sub tri_ABC_decroissant()
Range("a2:o" & ActiveSheet.[a65536].End(xlUp).Row & "").Sort Key1:=Range("O2"), _
Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub
Cordialement.
PMO