Bonjour, ci joint le code de tri à adapter pour tes besoins
on suppose le debut des datas à trier en ligne 3
Bon courage
Cells(3,2).Activate 'POSITIONNEMENT INITIAL
With Selection.CurrentRegion
Intersect(.Cells, .Offset(1)).Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, key2:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom