Séparer une colonne en plusieurs colonnes en VB.NET

 Sub Macro_Excel_GoodArray(ByVal Path_of_Excel As String)


        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim Range As Excel.Range
        Dim mycol(,) As Object = New Object(,) {{1, 2}, {2, 2}, {3, 5}, {4, 1}, {5, 2}, {6, 1}, {7, 1}, {8, 1}, {9, 1}, {10, 1}, {11, 1}, {12, 1}}





        xlApp = CreateObject("Excel.Application")

        xlApp.Application.DisplayAlerts = False

        xlWorkBook = xlApp.Workbooks.Open(Path_of_Excel)

        xlWorkSheet = xlWorkBook.ActiveSheet

        Range = xlWorkSheet.Range("A1", "A" & xlWorkSheet.Rows.Count)





        Range.TextToColumns(xlWorkSheet.Range("A1"), Microsoft.Office.Interop.Excel.XlTextParsingType.xlDelimited, Microsoft.Office.Interop.Excel.XlTextQualifier.
       xlTextQualifierDoubleQuote, FieldInfo:=mycol, ConsecutiveDelimiter:=False, Semicolon:=False, Space:=False, Other:=False, Comma:=True, Tab:=True, TrailingMinusNumbers:=True)
        'FieldInfo:=Array(Array(1, 1), Array(12, 1)))


        xlWorkBook.Close() 'The workbook is closed
        xlApp.Quit() 'The application is quitted

        releaseObject(xlApp) 'The application is released properly
        releaseObject(xlWorkBook) 'The workbook is released properly
        releaseObject(xlWorkSheet) ' The worksheet is released properly


    End Sub