Ouverture fichier txt sous notepad++

Sub Test()
Dim myFso As Object, fichier1 As Object, fichier2 As Object, pathFichierTxt As String, pathNouvFichierTxt As String, ligneTxt As String

    'chemin du fichier texte
    pathFichierTxt = "E:\XLS\test\Nouveau Document texte.txt"
    'générer le chemin du nouveau fichier
    pathNouvFichierTxt = Left(pathFichierTxt, InStrRev(pathFichierTxt, "\")) & "tmp_" & Format(Now, "yyyymmddhhnnss") & ".txt"
    
    'récupérer le fichier (en mode lecture)
    Set myFso = CreateObject("Scripting.FileSystemObject")
    Set fichier1 = myFso.OpenTextFile(pathFichierTxt, 1)
    'créer / récupérer un nouveau fichier (en écriture)
    Set fichier2 = myFso.CreateTextFile(pathNouvFichierTxt, True)
    
    'boucler sur chaque ligne du fichier texte
    While Not fichier1.AtEndOfStream
        ligneTxt = fichier1.ReadLine
        'si la ligne n'est pas vide, la rajouter au nouveau fichier
        If ligneTxt <> "" Then fichier2.WriteLine ligneTxt
    Wend
    
    'fermer les fichiers
    fichier1.Close: fichier2.Close
    
    'supprimer l'ancien fichier texte
    myFso.DeleteFile pathFichierTxt, True
    
    'renommer le nouveau vichier texte (nom de l'ancien)
    Name pathNouvFichierTxt As pathFichierTxt
    
    'détruire les objets
    Set myFso = Nothing: Set fichier1 = Nothing: Set fichier2 = Nothing
    
End Sub

Sub Extrait()
Close #1
Close #2
nomFich = "C:\SupLigneVide.txt"
nomFich2 = "C:\SupLigneVide2.txt"
'n = 1
'p = 1
Open nomFich For Input As #1
Open nomFich2 For Output As #2
Do While Not EOF(1)
Line Input #1, strline
MsgBox Len(strline)
'Cells(p, 1) = strline: p = p + 1
'If strline = "- <customBucketList>" Then n = 2
'If strline = "</customBucketList>" Then n = 0
'If n = 1 Then Print #2, strline
'If n = 0 Then n = n + 1
If Len(strline) <> 0 Then Print #2, strline
Loop
Close #1
Close #2
'Open nomFich2 For Input As #1
'p = 1
'Do While Not EOF(1)
'Line Input #1, strline
'Cells(p, 4) = strline: p = p + 1
'Loop
'Close #1
End Sub

Sub Extrait()
Close #1
Close #2
nomFich = "C:\SupLigneVide.txt"
nomFich2 = "C:\SupLigneVide2.txt"
Open nomFich For Input As #1
Open nomFich2 For Output As #2
Do While Not EOF(1)
Line Input #1, strline
If Len(strline) <> 0 Then Print #2, strline
Loop
Close #1
Close #2
End Sub