XL 2013 extraction suite en fonction d'un intervalle

Function Suite$(t$)
Dim o As Object, a As Object, x$, s$, i%
Set o = CreateObject("vbscript.regexp")
o.Global = True
o.Pattern = "\d+"
Set a = o.Execute(t)
If a.Count <> 2 Then Exit Function
x = Left(t, InStr(t, a(0)) - 1)
s = Mid(t, Len(x) + Len(a(0)) + 1, 1) 'séparateur
If LCase(t) <> LCase(x & a(0) & s & x & a(1)) Then Exit Function
If Val(a(0)) = Val(a(1)) Then Suite = x & Val(a(0)): Exit Function
For i = a(0) To a(1) Step IIf(Val(a(0)) < Val(a(1)), 1, -1)
  Suite = Suite & s & x & i
Next
Suite = Mid(Suite, 2)
End Function

Dim o As Object 'mémorisation pour gagner du temps sur la création

Function Suite$(t$)
Dim a As Object, x$, s$, i%
If o Is Nothing Then
  Set o = CreateObject("vbscript.regexp")
  o.Global = True
  o.Pattern = "\d+"
End If
Set a = o.Execute(t)
If a.Count <> 2 Then Exit Function
x = Left(t, InStr(t, a(0)) - 1)
s = Mid(t, Len(x) + Len(a(0)) + 1, 1) 'séparateur
If LCase(t) <> LCase(x & a(0) & s & x & a(1)) Then Exit Function
If Val(a(0)) = Val(a(1)) Then Suite = x & Val(a(0)): Exit Function
For i = a(0) To a(1) Step IIf(Val(a(0)) < Val(a(1)), 1, -1)
  Suite = Suite & s & x & i
Next
Suite = Mid(Suite, 2)
End Function