Sub L7SendData()
 
        Dim fileTest As String = "C:\Users\Analyse.xls"
        Dim oExcel As Object
        oExcel = CreateObject("Excel.Application")
        oExcel.Workbooks.Open(fileTest)
        Dim oBook As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        oBook = oExcel.ActiveWorkbook
        oSheet = oExcel.Worksheets(2)
 
        oSheet.Range("A1").Value = Form1.DataGridView1.Item(0, 0).Value
 
        oExcel.DisplayAlerts = False
        oBook.SaveAs(fileTest, 1)
        oBook.Close()
        oBook = Nothing
    End Sub