Microsoft 365 Interprétation d'une série de valeur sur une ligne

Function Box(ByVal Don As String) As String
   Dim TJn() As String, P As Byte, N As Byte, TLog(1 To 71) As Boolean, Déb As Integer, Fin As Integer
   TJn = Split(Don, ",")
   For P = 0 To UBound(TJn)
      TLog(TJn(P)) = True
      Next P
   Déb = 72: Fin = 0
   ReDim TJn(1 To 70): P = 0
   For N = 1 To 71
      If TLog(N) Then
         If Déb > N Then Déb = N
         Fin = N
      Else
         Select Case Fin - Déb
            Case Is > 1: P = P + 1: TJn(P) = Déb & " à " & Fin
            Case 1: P = P + 1: TJn(P) = Déb: P = P + 1: TJn(P) = Fin
            Case 0: P = P + 1: TJn(P) = Déb: End Select
         Déb = 72: Fin = 0
         End If
      Next N
   If P > 1 Then P = P - 1: TJn(P) = TJn(P) & " et " & TJn(P + 1)
   ReDim Preserve TJn(1 To P)
   Box = "Box " & Join(TJn, ", ")
   End Function

=Box(U3)

Function Suite(txt$, sep$)
Dim a, deb$, i%
txt = Replace(txt, " ", "")
a = Split(txt, sep)
If UBound(a) = -1 Then Suite = "": Exit Function
tri a, 0, UBound(a)
deb = "Box " & Val(a(0))
Suite = deb
For i = 1 To UBound(a)
    If Val(a(i)) = Val(a(i - 1)) + 1 Then
        Suite = deb & " à " & Val(a(i))
    Else
        Suite = Suite & " et " & Val(a(i))
        deb = Suite
    End If
Next
End Function

Sub tri(a, gauc, droi) ' Quick sort
Dim ref, g, d, temp
ref = Val(a((gauc + droi) \ 2))
g = gauc: d = droi
Do
    Do While Val(a(g)) < ref: g = g + 1: Loop
    Do While ref < Val(a(d)): d = d - 1: Loop
    If g <= d Then
      temp = a(g): a(g) = a(d): a(d) = temp
      g = g + 1: d = d - 1
    End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub