Private Sub UpdateDB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateDB.Click


        Dim xlsapp As Microsoft.Office.Interop.Excel.Application
        Dim Xlsbook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim i As Integer
        Dim j As Integer

        xlsapp = New Excel.Application
        Xlsbook = xlsapp.Workbooks.Add(misValue)


        xlWorkSheet = Xlsbook.Sheets("Colonne")

        For i = 0 To DataGridView1.RowCount - 2
            For j = 0 To DataGridView1.ColumnCount - 1
                xlWorkSheet.Cells(i + 1, j + 1) = DataGridView1(j, i).Value.ToString()
            Next
        Next

        xlWorkSheet.SaveAs("Follow.xlsx")
        Xlsbook.Close()
        xlsapp.Quit()

        releaseObject(xlsapp)
        releaseObject(Xlsbook)
        releaseObject(xlWorkSheet)
    End Sub

    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Class