perte d'espaces dans fichier txt

Bonjour,

J'importe un fichier .txt dans une feuille . Chaque ligne du texte est dans une ligne différente et chaque ligne du texte est danc une seule colonne.
Soit pour 5 lignes, je renseigne A1 à A5.

Mon souci est la perte des espaces situés en début de ligne.
En quelque sorte, il me cadre tout à gauche.

Comment faire pour qu'il conserve ses blancs et me garde ma présentation quand je me mets ensuite en 'Courier New' ?

Merci de votre aide.


ma formule d'import:

Workbooks.OpenText _
FileName:=monFichier, _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 2)