Sub rgxp()
Dim b(), n, nn, tb
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.ignorecase = True
reg.Pattern = "\\+(.*)+xls\w?"
For a = 1 To Feuil1.UsedRange.Rows.Count
On Error Resume Next
If Feuil1.Cells(a, 4) <> "" Then
Set nn = reg.Execute(Feuil1.Cells(a, 4))
For Each n In nn
tb = tb + 1
ReDim Preserve b(1 To tb)
b(tb) = Right(n, Len(n) - 1)
Next n
End If
Next a
End Sub