ActiveSheet.PageSetup.PrintArea = Range("A6").CurrentRegion.Address
X = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
Response = MsgBox("Souhaitez-vous imprimer les " & X & " pages?", vbYesNo, "Impression")
If Response = vbYes Then
Selection.PrintOut Copies:=1, Collate:=True
End If