Imprimer Nombre de pages

bonsoir le forum
je voudrais impression 2 feuilles ( 1eme feuil avec quantité de page indiquer de cellule O11 ), la 2eme feuil que une seule page ; tout en 2 exemplaire
je fais un macro , mais il imprime tout
Sub Macro1()
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=Range("R11").Value, Collate:=True

'
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
Sheets("Complet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
Sheets("Incomplet").Select

End Sub
merci d'avance