Alors voici le bout de code que j'ai réussi à trouver.
J'ai essayé pas mal de choses mais je n'ai pas réussi à le faire fonctionner...
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Set plag = Union(Range("feuil1!e5"), Range("feuil1!M5"))
plag.Font.ColorIndex = 2
Application.EnableEvents = False
Sheets("feuil1").PrintOut , , , True
Application.EnableEvents = True
plag.Font.ColorIndex = 0
Cancel = True
End Sub
Merci de l'intérêt que vous portez à ma question.