Copier une cellule dans un TextBox

Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer
    Dim j As Integer
    'découpe la chaine en fonction des retours à la ligne vbLf
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(Range("A1"), vbLf) ' adapter la cellule
    
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'exécution de l'éditeur de macros
        Debug.Print Tableau(i)
        j = j + 1
    Next i
    MsgBox "Il y a : " & j & " lignes"
End Sub

Sub test()
TextBox1.Value = Split(Range("A1"), vbLf)(0) 'adapter le cellule
TextBox2.Value = Split(Range("A1"), vbLf)(1)
TextBox3.Value = Split(Range("A1"), vbLf)(2)
End Sub