Rebonjour,
J'ai trouvé la formule. Je vous mets ci-dessous le code peut etre pourras servir à quelqu'un dans l'avenir.
Code permettant de copier les données du fichier TXT sur un nouveau classeur : Workbooks.OpenText Filename:="C:\CIEL11M0", Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(6, 1), Array(8, 1), Array(51, 1), Array(64, 1), Array(80, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True
Ensuite on suit les methodes simple pour copier les données d'une feuille Excel sur un autre feuille :
Cells.Select
Selection.Copy
Workbook("Mission").Activate
Bonne journée