[VBA Ragexp] Récupérer le contenu avant et après un Pattern

Sub SplitLml_Mike()
Dim monTab() As String

monTab = Split(Cells(1, 1).Value, Chr(10)) 'Chr(10) = renvoi à la ligne
For i = LBound(monTab) To UBound(monTab)
    Debug.Print monTab(i)
Next i
End Sub

Dim myRegExp As RegExp
Dim myMatches As MatchCollection
Dim myMatch As Match
Dim monTab() As String
Dim indTab As Integer

Set myRegExp = New RegExp

myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = "(> )|(.*)"

Set myMatches = myRegExp.Execute(Cells(3, 4))

For Each myMatch In myMatches

      If myMatch <> "> " And myMatch <> "" Then
        ReDim Preserve monTab(indTab) 'redimensionnement de la variable tableau
        monTab(indTab) = myMatch 'stockage de sa valeur en mémoire
        indTab = indTab + 1 'incrémentation de l'indice de la variable tableau
      End If

Next
'boucle sur la variable tableau
For indTab = 0 To UBound(monTab)
    Debug.Print monTab(indTab)
Next