Visual Basic.NET - DataGridView y array

Dim NbColXLS As Integer = 0

        XLSAPP = New Excel.Application

        XLSAPP.Visible = True '*************************

        XLSAPP.Workbooks.Open(CurDir() & "\" & "Savon.xlsx")  'ouvrir le fichier XLS

        NbColXLS = 0

        XLSAPP.Visible = False '*************************

  ' ... ... ...

        For c = 1 To 25

            Valeur = XLSAPP.Cells(l, c).Text

            If XLSAPP.Cells(l, c).Text <> String.Empty Then

                DGVGen.Columns.Add(Valeur, Valeur)

                DGVGen.Columns(Valeur).SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic   '.NotSortable()

                DGVGen.Columns(Valeur).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

                If c > 1 Then DGVGen.Columns(Valeur).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

                ColonnesXLS(NbColXLS) = c

                NbColXLS += 1

                ReDim Preserve ColonnesXLS(NbColXLS)

            End If

        Next c

  ' ... ... ...

        While XLSAPP.Cells(l, ColonnesXLS(c)).Text <> String.Empty

            DGVGen.Rows.Add()

            For c = 0 To ColonnesXLS.Length - 2

                DGVGen.Item(c, DGVGen.RowCount - 1).Value = XLSAPP.Cells(l, ColonnesXLS(c)).Text

            Next

            c = 0

            l += 1

        End While

        XLSAPP.Workbooks.Close()

        XLSAPP.Visible = False

        XLSAPP.Quit()

        XLSAPP = Nothing

For c = 1 To 25

            Valeur = XLSAPP.Cells(l, c).Text

            If XLSAPP.Cells(l, c).ToString.IndexOf("huile") > -1 Then   ' Linea para seleccionar las celdas con la palabra "huile"

                If XLSAPP.Cells(l, c).Text <> String.Empty Then

                    DGVGen.Columns.Add(Valeur, Valeur)

... ... ...

' ... ... ...

        dgvMovimientos.DataSource = ods.Tables("Hoja1")

        consulta = "select * from [Hoja1$] WHERE Descripcion LIKE '%Paypal%' OR

                                                Descripcion LIKE '%Bretxa%' OR    

                                                Descripcion LIKE '%Eroski%' ;"

        oda = New OleDbDataAdapter(consulta, cnn)

        ods.Tables.Add("Hoja2")

        oda.Fill(ods.Tables("Hoja2"))

        dgvFiltro.DataSource = ods.Tables("Hoja2")

' ... ... ...