Public Function M_triDateTXT(ListA As Range, Listassos As Range)
'Eléments de ListA à trier du plus petit au plus grand, par rapport à Listassos liste associée qui est affichée
Application.Volatile
Dim n%, i%, LgA%, LgC%
Dim a() As String, b() As String, c() As String
Dim MatA As Variant, Matassos As Variant, cel As Variant
MatA = ArrayFromRange(ListA)
Matassos = ArrayFromRange(Listassos)
LgA = ListA.Count
ReDim a(1 To LgA)
ReDim b(1 To LgA)
ReDim c(1 To LgA)
''*******************************************
n = 0
For Each cel In MatA 'construit variable de la colonne liste A (a)
n = n + 1
a(n) = cel
Next cel
''*******************************************
n = 0
For Each cel In Matassos 'construit variable de la colonne ListCond (b)
n = n + 1
b(n) = a(n) & "µ" & cel
Next
''*******************************************TRT CONDITIONS (c)
Call trialpha(b, 1, LgA)
''*******************************************
For i = 1 To LgA
c(i) = Right(b(i), Len(b(i)) - InStr(1, b(i), "µ"))
Next i
''*******************************************
M_triDateTXT = Application.Transpose(c)
End Function