sChaineAvecBR = Remplace(sChaineAvecRC,RC,"<br/>")

Public Shared Function FormatText(ByVal LeTexte As String) As String
Dim TexteFormater As String = LeTexte.Replace(vbCrLf, "<br />") 
Return TexteFormater 
End Function