chr(13) et carrès à l'affichage

Bonsoir,
Ci-après un code tout simple
sub essai()
exemple='bonjour' & chr(13) & 'bonsoir'
sheets('feuil1').select
range('a1')=exemple
end sub

Question : pourquoi le chr(13) se tranforme en carré. Existe-t-il un moyen d'éviter ce problème d'affichage et d'avoir la variable sur 'deux lignes' dans la même cellule.

D'avance merci

[MichelXld]

bonsoir Jean-Paul

tu peux tester

Sub essai()
exemple = 'bonjour' & vbLf & 'bonsoir'
Sheets('feuil1').Select
Range('a1') = exemple
End Sub


bonne soiree
MichelXld

Merci

ça marche sous excel

sous word ce code ne fonctionne pas. toujours affichage de carrés

a+

[Jam]

Salut Jean-Paul, MichelXld,

Essai avec

exemple= 'bonjour' & vbCrLf & 'bonsoir'

ou encore avec

exemple= 'bonjour' & Chr$(13) & Chr$(10) & 'bonsoir'

.

Bonne soirée