Sub rgxp()
Dim reg As Object
Dim n, nn
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.ignorecase = True
reg.Pattern = ">\w*\.?\w*<"
Set nn = reg.Execute(Feuil1.[A1])
For Each n In nn
b = Replace(n, ">", vbNullString, 1, , vbTextCompare)
b = Replace(b, "<", vbNullString, 1, , vbTextCompare)
Feuil1.Cells(Rows.Count, 2).End(xlUp)(2) = b
Next
End Sub