Salut la compagnie,
Oui je ne regardais que le tableau de gauche...
Beuuuh ! Ça c'est un tableau qu'il est mal foutu ou je m'y connaît pas...
Tu ne peux pas trier séparément2 tableaux qui ont des références croisées. C'est un truc de OUF !
Comme j'ai pas trop compris ce que tu veux trier et comment je te propose une macro qui fait une extraction "en dur".
Après tu peux trier le résultat comme tu veux...
Bon je t'ai sorti que 2 colonnes parce que c'est ce tu as déjà fait, mais en fait tu peux faire un copier coller "en dur" de tout ton tableau vers ailleurs et trier le tableau "en dur"... Mais pour l'instant comme j'ai pas trop compris comment tu veux trier...
Sub croissant1()
a = Range("Tableau72").Value
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To Range("Tableau72[Moteur]").Rows.Count
d.Item(a(i, 1)) = a(i, 12)
Next
[T47].Resize(d.Count) = Application.Transpose(d.keys)
[U47].Resize(d.Count) = Application.Transpose(d.items)
[T47:U47].Resize(d.Count).Sort Key1:=Range("U47"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
A+