Supprimer code HTML

Bonjour,

J'essaie de supprimer un code HTML dans une colonne qui contient régulièrement :

<img src=""data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAA suivi de 4 pages de caractères avant de se refermer par la balise ">"

Je n'arrive pas à supprimer ce code.

bonjour,

par exemple pour du code html en colonne A et résultat en colonne B

Sub aargh()
    With ActiveSheet
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To dl
            .Cells(i, 2) = supprimeentrebalises(.Cells(i, 1).Value, "<img", ">")
        Next i
        End With
End Sub
Function supprimeentrebalises(t, bo, bf)
'supprime du texte t, ce qui se trouve entre la balise bo et la balise bf
    nt = t
    s1 = InStr(t, bo)
    If s1 > 0 Then
        s2 = InStr(s1 + 1, t, bf)
        If s2 > 0 Then
            nt = Left(t, s1 - 1) & Mid(t, s2 + 1)
        End If
    End If
    supprimeentrebalises = nt
End Function