Function FormatLF(ByVal sData As String) As String
'contient des vbcrlf (13&10) ou vbcr(13) ou vblf(10)
If InStr(1, sData, vbCrLf) Then
FormatLF = Replace(sData, vbCrLf, vbLf)
ElseIf InStr(1, sData, vbCr) Then
FormatLF = Replace(sData, vbCr, vbLf)
Else
FormatLF = sData
End If
End Function