Simplification d'ecriture

Bonjour

je souhaiterai simplifier la dernière ligne du bout de code suivant que j'ai ecri :

option base 1

Sub nouvelle()

Dim tablo() As Variant

ReDim tablo(1 To Len(Range("k18")))

For s = 1 To Len(Range("k18"))

tablo(s) = (Mid(Range("k18"), s, 1))

Next s

MsgBox tablo(1) & tablo(2) & tablo(3) <------------------il s'agit de cette ligne

End Sub

comment avoir en un seul message tablo(1) & tablo(2) & tablo(3)&tablo(4) ..etc ?

Merci

Bonjour,

à tester

option base 1
Sub nouvelle()
Dim tablo() As Variant

ReDim tablo(1 To Len(Range("k18")))
For s = 1 To Len(Range("k18"))
tablo(s) = (Mid(Range("k18"), s, 1))
Next s
msg=""
for i=1 to ubound(tablo)
msg=msg & tablo(i)
next i
MsgBox msg
End Sub

Excellent h2so4 !! ca marche du tonnerre , un grand merci à toi !