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

Les points d'arrêts et la touche F8 sont tes amis