Version imprimable
ou encore Code: If str<>"" Then str = vbCrLf & str
If str<>"" Then str = vbCrLf & str