VBA supprime le dernier vbcrlf
' Removes the Line Break from the string if my string Ends with Line Break
Sub RemoveLineBreak(myString)
If Len(myString) > 0 Then
If Right$(myString, 2) = vbCrLf Or Right$(myString, 2) = vbNewLine Then
myString = Left$(myString, Len(myString) - 2)
End If
End If
End Sub
VasteMonde