Bonjour.
Toujours pas de Application.PrintCommunication = True tout à la fin, juste devant le ActiveWindow.SelectedSheets.PrintOut, donc le dernier bloc n'est pas pris en compte.
Par contre il faut un seul Application.PrintCommunication = False devant le 1er With Activesheet.PageSetup