Re,
Par exemple:
sub exemple()
DIm T
T=sheets("lenomdetafeuillecachée").usedrange.value 'ou la plage désirée
'On détermine le nombre de lignes déterminée par Ubound(t,1) et le nombre de colonnes par Ubound(t,2)
trimulti T,2,1,ubound(t) 'Ici on trie la colonne 2
sheets("lenomdelafeuilleNoncachée").[A1].resize(ubound(t,1),ubound(t,2))=t
end sub
Sub TriMulti(Tablo, Col As Byte, Min&, Max&) 'ZOn
Dim I&, J&, K&, M, Chaine
I = Min
J = Max
M = Tablo((Min + Max) / 2, Col)
While (I <= J)
While (Tablo(I, Col) < M And I < Max)
I = I + 1
Wend
While (M < Tablo(J, Col) And J > Min)
J = J - 1
Wend
If (I <= J) Then
For K = LBound(Tablo, 2) To UBound(Tablo, 2)
Chaine = Tablo(I, K)
Tablo(I, K) = Tablo(J, K)
Tablo(J, K) = Chaine
Next K
I = I + 1
J = J - 1
End If
Wend
If (Min < J) Then TriMulti Tablo, Col, Min, J
If (I < Max) Then TriMulti Tablo, Col, I, Max
End Sub
A+++