Bonjour Patron28
Pour obtenir le tableau 2
ActiveSheet.Range("A2:C19").Sort Key1:=Range("B2"), Order1:=xlDescending
Le problème c'est que le tri n'est pas copié dans un autre emplacement
Pour obtenir le tableau 3
ActiveSheet.Range("A2:C19").Sort Key1:=Range("B2"), Order1:=xlDescending, Key2:=Range("C2"), Order2:=xlAscending