Transfert fichier texte/Excel

Bonjour le forum,

J'utilise le code suivant afin de récupérer le code d'une page web dans un fichier texte:

Dim nFile as integer
nFile = FreeFile
Open "C:\Code.txt" For Output Shared As #nFile
Print #nFile, WebBrowser1.Document.documentElement.innerHTML
Close #nFile

J'aimerais transférer ce fichier texte dans un feuillet Excel de telle sorte que chaque ligne du fichier texte intitulé "Code" soit copié dans une cellule, soit:
1°ligne en A1
2°ligne en A2...etc.

Quelqu'un aurait-il une idée ???

Emmanuel