Function ClassementFeuilles(ref$, deb$, fin$)
Application.Volatile
If ref = "" Or deb & fin = "" Then ClassementFeuilles = "": Exit Function
Dim i%, j%, n As Byte
If deb = "" Then deb = fin
If fin = "" Then fin = deb
i = Application.Match(deb, [Liste], 0)
j = Application.Match(fin, [Liste], 0)
n = Abs(i - j) + 1
ReDim a(1 To n): ReDim b(1 To n): ReDim c(1 To n, 1 To 2)
j = IIf(i < j, i, j)
For i = 1 To n
a(i) = Sheets(i + j).Range(ref)
b(i) = Sheets(i + j).Name
Next
tri a, b, 1, n
For i = 1 To n
c(i, 1) = b(i)
c(i, 2) = a(i)
Next
If n > 9 Then ClassementFeuilles = c: Exit Function 'tableau N x 2
Dim d(1 To 10, 1 To 2)
For i = 1 To 10
If i > n Then d(i, 1) = "": d(i, 2) = "" _
Else d(i, 1) = c(i, 1): d(i, 2) = c(i, 2)
Next
ClassementFeuilles = d 'tableau 10 x 2
End Function