probleme pour imprimer des onglet rajouter

[veve890]

Voici mon problème
J ais un classeur Excel avec plusieurs onglet mes des fois
J ais besoin de copier un onglet ou deux ou trois et…
Et j ais un userform pour imprimer les onglets soit recto verso ou que recto
Sur userform imprimer tous les onglets apparaisse même se que je fais la copie
Dans chaque feuille non copier dans la cellule Z1 il y a une réf pour savoir si
Ont doit imprimer en recto c est R ou recto verso c est RV
Don dans userform je sélectionne les feuilles que je jeux imprimer
Pour les feuille non copier cela marche bien mes pour les onglets copier il imprime
Les onglets originaux je vous mes mon code pour trouver une solution
Merci
Private Sub CommandButton3_Click()
'Memorise la feuille de depart pour la restaurer à la fin
Dim myActualSheet
myActualSheet = ActiveSheet.Name





Dim i As Integer
For i = 0 To lstPrintSheets.ListCount - 1

If lstPrintSheets.Selected(i) Then

'recupere le nom de la feuille selectionnee
Dim mySheetName As String
mySheetName = lstPrintSheets.List(i)
'*******************************************************************************​*
' Recupere la valeur de la cellule qui indiquera le format d'impression
Sheets(mySheetName).Select
Select Case Sheets(mySheetName).Range("Z1").value
Case "RV"
ImpressionRectoVerso
Case "RV2"
ImpressionRectoVerso2
Case "RV3"
ImpressionRectoVerso3
Case "RV5"
ImpressionRectoVerso5
Case "RV6"
ImpressionRectoVerso6
Case "R"
ImpressionRecto
Case "D"

End Select
'*******************************************************************************​*
End If
Next i

'restaure la feuille de depart
Sheets(myActualSheet).Select
End Sub




Sub ImpressionRectoVerso()
Sheets(Array("FINISSEUR", "DIMENSIONNEL FINISSEUR")).PrintOut , , 1

End Sub
Sub ImpressionRectoVerso2()
Sheets(Array("EBAUCHEUR", "DIMENSIONNEL EBAUCHEUR")).PrintOut , , 1
End Sub
Sub ImpressionRectoVerso3()

Sheets(Array("MOULE DE BAGUE", "NOYAU-RONDELLE-DE-BUSETTE")).PrintOut , , 1
End Sub

Sub ImpressionRecto()
ActiveSheet.PrintOut
End Sub
la je suis vraiment bloque c est fait plusieurs jours que je suis decu
Mais je ne trouve pas
Merci pour votre aide