Macro imression

[atoss]

Bonjour

Je voudrais rajouter le recto-verso dans mon code qui ne permets de sélectionner les feuilles pour impression


Voici mon code avec un bouton :

Private Sub CommandButton1_Click()
Dim i As Integer
UserForm1.Hide
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then Sheets(.List(i)).PrintOut 'Preview:=True
Next
End With
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
Dim s As Object
ListBox1.MultiSelect = fmMultiSelectExtended
For Each s In Sheets
ListBox1.AddItem s.Name
Next
End Sub


Merci pour vos réponse