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