Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        xlApp = New Excel.Application
        xlBook = xlApp.Workbooks.Open(Filename:="c:\EMP_.xlsx", IgnoreReadOnlyRecommended:=True, ReadOnly:=False, Editable:=True)
        xlSheet = xlBook.Worksheets(1)
        If DataGridView1.DataSource IsNot Nothing Then
            Dim i, j As Integer
            For i = 1 To DataGridView1.RowCount - 1
                For j = 1 To DataGridView1.ColumnCount
                    xlSheet.Cells(i + 1, j) = DataGridView1.Rows(i - 1).Cells(j - 1).Value
                Next
            Next
            xlApp.Visible = True
            xlApp.UserControl = True
            xlApp.Quit()
            xlApp = Nothing
        Else
            MsgBox("Le tableau est vide")
        End If