Cordialement,Private Sub btnImprListe_Click()
Application.ScreenUpdating = False
ThisWorkbook.Sheets.Add
With ActiveSheet
.Range(.Cells(1, 1), .Cells(ListBox1.ListCount, _
ListBox1.ColumnCount)).Value = ListBox1.List
.PrintOut
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
End Sub