XL 2013 comment simplifier macro impression avec une variable ?

Bonjour à tous,

je pense que l'on peut faire quelque chose de plus simple et rapide ... car je dois faire plusieurs macro de ce type et avec des données différentes en Q5 pour chaque classeur.

J'ai cette macro pour imprimer une feuille.

Sub Impression ()

Sheets("feuil1").Activate
Range("Q5").Select
ActiveCell.FormulaR1C1 = "14"
Range("Q6").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("Q5").Select
ActiveCell.FormulaR1C1 = "15"
Range("Q6").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("Q5").Select
ActiveCell.FormulaR1C1 = "20"
Range("Q6").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("Q5").Select
ActiveCell.FormulaR1C1 = "201"
Range("Q6").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("Q5").Select
ActiveCell.FormulaR1C1 = "807"
Range("Q6").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("Q5").Select
ActiveCell.FormulaR1C1 = "810"
Range("Q6").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("Q5").Select
ActiveCell.FormulaR1C1 = "1553"
Range("Q6").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1

End Sub

peux t on simplifier cette macro ?

La macro change la donnée en Q5, ex : 14, la feuille s'imprime, puis elle rechange la donnée Q5 en "15" s'imprime etc...

Merci pour votre aide.