j'ai une chaine "<b><STRONG><font = ...........><br>"
Dès que la chaine entre < > est supérieur à 8 caractères je dois la supprimer
Je fais ceci mais elle ne le fait qu'une fois sur deux
Ou est mon erreur merci d'avance pour votre aide 
i = InStr(FormatXML, "<" )
If i <> 0 Then j = InStr(i, FormatXML, ">" )
MsgBox i
MsgBox j
l = j - i
MsgBox l
While i > 0 And j > 0
If j > 0 Then
l = j - i
If l > 8 Then
FormatXML = Left(FormatXML, i - 1) & Right(FormatXML, Len(FormatXML) - j)
End If
End If
i = InStr(j, FormatXML, "<" )
If i <> 0 Then j = InStr(j + 1, FormatXML, ">" )
temps = FormatXML
l = j - i
MsgBox "i : " & i
MsgBox "j : " & j
MsgBox "l : " & l
Wend
