VBA Excel & importation de fichier texte

Bonjour à tous !

J'importe un fichier texte sur une feuille en colonne A1, puis je fractionne la colonne A1 avec cette formule :

Sheets("Feuil1").Select
Columns("A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True

Le fichier texte :

XACT YACT ZACT
51.0156 -0.7197 32.4194
51.0180 -0.3293 32.0649
51.0198 0.0643 31.7140
51.0165 0.4493 31.3538
51.0116 0.8349 30.9942
51.0042 1.2188 30.6328
50.9920 1.5924 30.2609
50.9785 1.9678 29.8909

Voici le résultat, j'ai un problème au niveau des 2 premières lignes, le 6 et le 8 passent toujours une colonne C :

A B C
51.014 -0.722 6 32.4160
51.017 -0.331 8 32.0621
51.019 0.062 31.712
51.015 0.444 31.348
51.010 0.830 30.989
51.003 1.213 30.627
50.992 1.593 30.262
50.977 1.963 29.886
50.961 2.335 29.513
50.944 2.710 29.143

Merci pour votre aide. 🙂