Sub Raz_Balises2()
Dim Range_Ref As Range, Tab_Ref, i&
Set Range_Ref = Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
Tab_Ref = Range_Ref.Value2
For i = LBound(Tab_Ref, 1) To UBound(Tab_Ref, 1)
If InStrRev(Tab_Ref(i, 1), ">") Then Tab_Ref(i, 1) = Left(Tab_Ref(i, 1), InStrRev(Tab_Ref(i, 1), ">") - 4)
If InStr(Tab_Ref(i, 1), ">") Then Tab_Ref(i, 1) = Right(Tab_Ref(i, 1), Len(Tab_Ref(i, 1)) - InStr(Tab_Ref(i, 1), ">"))
Next i
Range_Ref = Tab_Ref
End Sub