Supprimer ligne vide dans fichier txt en vbs

' Fichier LireFichier.vbs
'
'
Const cteLecture = 1
Const cteEcriture = 2
Const cteFichierSrc = "C:\Documents Local\Test_in.txt"
Const cteFichierDes = "C:\Documents Local\Test_out.txt"

	Dim objFSO, objFichierSrc, objFichierDes, Texte

	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFichierSrc = objFSO.OpenTextFile(cteFichierSrc, cteLecture)
	Set objFichierDes = objFSO.CreateTextFile(cteFichierDes, cteEcriture)

	While Not objFichierSrc.AtEndOfStream
		Texte = objFichierSrc.ReadLine
		Texte = Trim(Texte)
		If ( Len(Texte) > 0 ) Then
			objFichierDes.Writeline Texte
		End If
	Wend

	objFichierSrc.Close
	objFichierDes.Close

	Set objFichierSrc = Nothing
	Set objFichierDes = Nothing
	Set objFSO = Nothing

WScript.Quit(0)

filedialog "Ouvrir un fichier", "*.txt", cheminFichier$ 'demande l'ouverture d'un fichier
if fcheminFichier$ = "" then end 'Si aucun fichier n'est sélectionné, terminer le programme
longChemin = len(cheminFichier$) 'revoie la longeur du chemin du fichier
cheminEnreg$ = left$(cheminFichier$, (longChemin-4)) +"-2.txt" 'cré un fichier en enlevant 4 caractères au chemin d'origine (.txt) et y ajoute "-2.txt"
open cheminFichier$ for input as #Fichier 'ouvre le fichier sélectionné
open cheminEnreg$ for output as #enregFichier 'ouvre le fichier à enregistrer
while eof(#Fichier) = 0 'regarde si il n'est pas à la fin du fichier
    input #Fichier, Ligne$ 'récolte la ligne du fichier
    if Ligne$ <> "" then print #enregFichier, Ligne$ 'teste si il y a bien un caractère, et si oui l'enregistre dans le nouveau fichier
wend
close #Fichier 'ferme le 1er fichier
close #enregFichier 'ferme le 2nd fichier
end 'fin du programme