Problème VBA : macro imprime toujours les commentaires alors que "xlPrintNoComments"

[Adi]

Bonjour à tous,

J'ai créer une macro qui réinitialise toute la mise en page et lance l'impression à la volée...
Je l'ai créé via la commande "enregistrer une macro" et bien pris soin de n'avoir "aucun" dans le module "Mise en page" - onglet "Feuille" - champs "commentaire".
Lors de l'enregistrement de cette macro tout a fonctionné comme je le voulais. Mais dès que je lance la macro, il m'imprime les commentaires... Je suis allé vérifier, et en effet, le champ commentaire dans le module "Mise en page" est passé en "à la fin de la feuille".

Voici le code VBA restitué par l'enregistrement.
J'y ai supprimé toutes les lignes finissant par = ""

ActiveSheet.PageSetup.PrintArea = "$D$2:$AX$79"
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
End With
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False


Si quelqu'un sait ce qu'il faut faire pour remédier à mon problème, je suis preneur.

Merci d'avance.


Cdt,
Adi