Option Explicit
Sub Test()
Workbooks.OpenText Filename:= _
"C:\Users\Jean-Claude\Downloads\GDMDemand\GDMDemand.new", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1)), TrailingMinusNumbers:=True
Cells.Columns.AutoFit
Range("A1").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Jean-Claude\Downloads\GDMDemand\GDMDemand.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub