Sélection de toutes les cellules non vides et coller ds Notepad

Bonjour,

J'essaie de faire une macro qui sélectionne toutes les cellules non-vides de la colonne A seulement et qui les copie dans un fichier Notepad. Voici ce que j'ai fait:

-------------------------------------------------------------------------------------------------
Public Sub XLRangeToNotepad()

Dim iPtr As Integer
Dim sFileName As String
Dim intFH As Integer
Dim oCell As Range

sFileName = "C:\Users\vB\Desktop\Test \TEXTE.txt"
Lastrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Close

Sheets("Feuil2").Select
intFH = FreeFile()
Open sFileName For Append As intFH

For Each oCell In Range("A1:A110000")
Print #intFH, oCell.Value
Next oCell

Close intFH


End Sub
--------------------------------------------------------------------------------------------------

J'ai besoin de répéter cette actions plusieurs fois et le nombre de cellules non-vides total dans la colonne A varie souvent. Pour l'instant, je ne réussis qu'à sélectionner le range A1:A110000 qui est un peu plus long que ce que j'ai besoin, ce qui copie plusieurs lignes vides dans Notepad. Et rend l'utilisation de ce fichier plus difficile par la suite.

Merci beaucoup à l'avance de votre aide!!

AL