Do Until (Len(TexteBrut) = 0)<br>
        char = Left(TexteBrut, 1)<br>
        If (char = Chr(13)) Then<br>
            Texte2 = Texte2 & ""<br>
        Else<br>
            Texte2 = Texte2 & char<br>
        End If<br>
        TexteBrut = Right(TexteBrut, Len(TexteBrut) - 1)<br>
    Loop<br>
<br>
    Do Until (Len(Texte2) = 0)<br>
        char = Left(Texte2, 1)<br>
        If (char = Chr(10)) Then<br>
            TexteMod = TexteMod & Chr(34) & " & vbCrLf & " & Chr(34)<br>
        Else<br>
            TexteMod = TexteMod & char<br>
        End If<br>
        Texte2 = Right(Texte2, Len(Texte2) - 1)<br>
    Loop<br>