impression d'une listbox

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

Cliquez pour agrandir...