XL 2016 Scinder cellule alphanumérique en plusieurs colonnes chiffres ou lettres

Function ExtraireChiffres(Chaine As String) As String
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "[^\d]+"
ExtraireChiffres = .Replace(Chaine, vbNullString)
End With
End Function
Sub test1()
Dim s_Str$
s_Str = "abcef12345ghij678.jpg"
MsgBox ExtraireChiffres(s_Str)
End Sub
Sub test2()
Dim s_Str$, regexMatches As Object

s_Str$ = "TOTO123titi1234567.jpg"
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "(\d{7})+"
    Set regexMatches = .Execute(s_Str$)
End With

MsgBox regexMatches(0)
End Sub

Sub test3()
Dim s_Str$, regexMatches As Object, i As Byte
s_Str$ = "TREMBLAY0258MONTREAL357896541258A.jpg"
With CreateObject("vbscript.regexp")
    .MultiLine = False: .Global = True: .Pattern = "[0-9]{1,100}"
    Set regexMatches = .Execute(s_Str$)
End With
For i = 0 To 1
MsgBox regexMatches(i)
Next
End Sub
Sub test4()
Dim s_Str$, regexMatches As Object, i As Byte
s_Str$ = "TREMBLAY0258MONTREAL357896541258A.jpg"
With CreateObject("vbscript.regexp")
    .MultiLine = False: .Global = True: .Pattern = "[a-zA-Z]{1,100}"
    Set regexMatches = .Execute(s_Str$)
End With
For i = 0 To 2
MsgBox regexMatches(i)
Next
End Sub

Private pRegEx As Object

Public Property Get oRegEx() As Object
   If (pRegEx Is Nothing) Then Set pRegEx = CreateObject("Vbscript.Regexp")
   Set oRegEx = pRegEx
End Property

Public Function RegExReplace(ByVal SourceText As String, _
      ByVal SearchPattern As String, _
      ByVal ReplaceText As String, _
      Optional ByVal bIgnoreCase As Boolean = True, _
      Optional ByVal bGlobal As Boolean = True, _
      Optional ByVal bMultiLine As Boolean = True) As String
  
   With oRegEx
      .Pattern = SearchPattern: .IgnoreCase = bIgnoreCase
      .Global = bGlobal: .MultiLine = bMultiLine
      RegExReplace = .Replace(SourceText, ReplaceText)
   End With
End Function 'merci à ebs17 pour cette fonction

Sub test6()
Dim sTrr$: sTrr = "TREMBLAY0258MONTREAL357896541258A.jpg"
MsgBox Split(RegExReplace(sTrr, "[0-9]{1,100}", vbNullString, True, True, False), ".")(0)
End Sub