Sub afficherTab1D(ByVal t As Variant)

k = ""

For i = LBound(t, 1) To UBound(t, 1)
    k = k & t(i) & vbCrLf
    
Next i

MsgBox prompt:=k
End Sub

--------------------------------------------------------------------------
Function split(ByVal phrase As String) As Variant

Dim word, mot() As Variant
Dim i, longeur  As Integer

'phrase = InputBox("entrez une phrase")
phrase = Trim(phrase)
ReDim mots(1)

If phrase = "" Then
    mots(1) = ""
Else
    nb = 1
    pos = InStr(phrase, " ")
    
    Do
    longeur = Len(phrase)
    word = Left(phrase, pos - 1)
    mots(UBound(mots)) = word
    ReDim Preserve mots(UBound(mots) + 1)
    rest = longeur - pos
    phrase = Trim(Right(phrase, rest))
    pos = InStr(phrase, " ")
    Loop Until pos = 0
        
End If

mots(UBound(mots)) = phrase 

split = mots

End Sub

    Source: geocities.com/manuhoro