Sub Macro1()
Dim FileToOpen As Variant
FileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If FileToOpen <> False Then
MsgBox "Open " & FileToOpen
Workbooks.OpenText Filename:=FileToOpen _
, Origin:=xlMSDOS _
, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 4), Array( _
10, 1), Array(13, 1), Array(16, 1), Array(21, 1), Array(25, 1), Array(30, 1), Array(37, 1), _
Array(41, 1), Array(45, 1), Array(49, 1), Array(53, 1), Array(57, 1), Array(62, 1), Array( _
68, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True
' ici il sera possible de rajouter/corriger la ligne d'entete
' sauvegarde au format CSV dans le même repertoire que l'original .txt
ActiveWorkbook.SaveAs Filename:= _
ActiveSheet.Name & ".csv", FileFormat:= _
xlCSV, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
End If