bonsoir Pierre
j'espère que cette macro pourra t'aider . Dans l'exemple , il s'agit d'une ListBox dans un UserForm
Private Sub CommandButton1_Click()
Dim i As Integer
Application.ScreenUpdating = False
Workbooks.Add 'création d'un nouveau classeur temporaire
For i = 0 To ListBox1.ListCount - 1 'boucle sur les éléments de la ListBox
ActiveSheet.Cells(i + 1, 1) = ListBox1.List(i)
Next i
ActiveWorkbook.PrintOut 'impression
ActiveWorkbook.Close False 'suppression du classeur temporaire
Application.ScreenUpdating = True
End Sub
bonne soirée
MichelXld