Salut renaud, sousou,
Une solution pour pouvoir mettre plus de 256 caractére dans une cellule est de passer par une variable de type string :
dim mon_text as string
mon_text=Range('B12').Value & Chr(13) & Chr(13) & Range('B13').Value & Range('B14').Value & Range('B15').Value & Chr(13) & Chr(13) & Range('B16').Value & Range('B17').Value & Chr(13) &
Chr(13) & Range('18').Value & Range('B19').Value & Chr(13) & Chr(13) & Range('B20').Value & Range('B21').Value & Range('B22').Value & Chr(13) & Chr(13) & Range('B23').Value & Chr(13) &
Range('B23').Value & Range('B24').Value & Chr(13) & Chr(13) & Range('B25').Value & Chr(13) & Chr(13) & Range('B26').Value & Chr(13) & Range('B27').Value & Chr(13) & Range('B28').Value & Chr(13) & Range('B29').Value & Chr(13) & Range('B30').Value
.body=mon_text
A+