Dim xlApp As Excel.Application

Dim xlSh As Excel.Worksheet

Dim objWkb As Excel.Workbook

Set xlApp = New Excel.Application



xlApp.Visible = True

Set objWkb = xlApp.Workbooks.Add



With xlApp.Sheets(1)

    Set Rng = .Range("B2:H" & Me.Liste5.ListCount + 1)

End With



Rng.Borders.Weight = 2



With Rng.Borders(7)

    .LineStyle = 1

    .ColorIndex = 0

    .TintAndShade = 0

    .Weight = 3

End With

With Rng.Borders(8)

    .LineStyle = 1

    .ColorIndex = 0

    .TintAndShade = 0

    .Weight = 3

End With

With Rng.Borders(9)

    .LineStyle = 1

    .ColorIndex = 0

    .TintAndShade = 0

    .Weight = 3

End With

With Rng.Borders(10)

    .LineStyle = 1

    .ColorIndex = 0

    .TintAndShade = 0

    .Weight = 3

End With



For i = 0 To Me.Liste5.ListCount - 1



xlApp.Sheets(1).Cells(i + 2, 2).Value = Me.Liste5.Column(0, i)

xlApp.Sheets(1).Cells(i + 2, 3).Value = Me.Liste5.Column(1, i)

xlApp.Sheets(1).Cells(i + 2, 4).Value = Me.Liste5.Column(2, i)

xlApp.Sheets(1).Cells(i + 2, 5).Value = Me.Liste5.Column(3, i)

xlApp.Sheets(1).Cells(i + 2, 6).Value = Me.Liste5.Column(4, i)

xlApp.Sheets(1).Cells(i + 2, 7).Value = Me.Liste5.Column(5, i)

xlApp.Sheets(1).Cells(i + 2, 8).Value = Me.Liste5.Column(6, i)



Next i



xlApp.Sheets(1).Range("B1").Select

xlApp.Sheets(1).Range("B1").ColumnWidth = "40"