Bonjour,
Une fonction personnalisée (faite pour un autre cas, mais elle peut répondre à des cas similaires...) :
Function EPURERENTRE(tx As String, c1 As String, c2 As String)
Dim T, i%
Application.Volatile
T = Split(Replace(tx, c1, c2), c2)
For i = 1 To UBound(T) Step 2
T(i) = ""
Next i
EPURERENTRE = Replace(Join(T, c2), c2, "")
End Function
Utilisation : =EPURERENTRE(A1;"<";">")
Cordialement.
NB- J'ai dû réduire un peu le fichier pour ramener la taille dans la fourchette acceptable...