Essaie de supprimer les caractères correspondant à des retours chariot dans chaque ligne. Affiche les codes de chaque caractère de la ligne pour déterminer les codes ASCII des caractères de retour chariot. Ensuite, tu remplaces ces caractères par un vide.
Exemple :
sLigne = Replace(sLigne,VbCr,"") & VbCr
ou
sLigne = Replace(sLigne,Chr(10),"") & VbCr
Ainsi tu es sûr d'avoir un seul retour chariot à la fin de ta ligne