Parser avec Split pour Excel 97

J'ai un tableau Excel qui contient une colonnes avec des cellules ayant un contenu sur plusieurs ligne (donc saut à la ligne). Le problème c'est qu'elle ne fait rien, malgré les différent Code Source de la fonction Split adapté pour Office 97 que j'ai essayer, alors je me demande si cela ne viens pas d'ailleurs. Voici le code :

Sub Parser()

Dim i, j, k As Long

j = 0
k = 0
i = 1

While (Worksheets(1).Cells(i, 3).Value <> "")
    While (UBound(Split(Worksheets(1).Cells(i, 3), vbCrLf)) <> j)
        Worksheets(2).Cells(k, 1).Value = Worksheets(1).Cells(i, 1).Value
        Worksheets(2).Cells(k, 2).Value = Worksheets(1).Cells(i, 2).Value
        Worksheets(2).Cells(k, 3).Value = Split(Worksheets(1).Cells(i, 3), vbCrLf)(j)
        j = j + 1
        k = k + 1
    Wend
    j = 0
    i = i + 1
Wend

End Sub

Je suis plus que novice avec VB (et donc VBA), donc soyez indulgent.

Comme je l'ai dit, j'étais au courant que la fonction Split ne fonctionnait pas (elle est inexistante pour ainsi dire) avec Excel 97. Cependant j'ai trouvé des sources sur ce site qui proposais des fonctions similaire à Split. Et malheureusement ça ne donnait rien.

Mais grace à ton code et quelque remaniement sur le mien. Cela marche du tonnerre.

Merci beaucoup.