ecrire dans un fichier excel à partir d'un datatable

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
            appExcel = New Excel.Application
            'création du classeur
            wbk = appExcel.Workbooks.Add
            wsh = CType(wbk.Worksheets(1), Excel.Worksheet)
            appExcel.Visible = True
            'désignation de "A1" comme cellule de base
            CellBase = CType(wsh.Cells(1, 1), Excel.Range)
            Dim cmptLig As Integer = 0
            Using Lecteur As New DataTableReader(Me.Biblio1DataSet.Tables(0))
                Do While Lecteur.Read()
                    For cmpt As Integer = 0 To Lecteur.FieldCount - 1
                        CellBase.Offset(cmptLig, cmpt).Value = Lecteur(cmpt).ToString()
                    Next
                    cmptLig += 1
                Loop
            End Using