XL 2013 ma première macro

[Big66677]

j'ai tenté une macro pour réaliser une impression A3
mais j'ai cette erreurs qui s’affiche en jaune.

  ActiveCell.Offset(-3, 1).Range("A1:AX34").Select
    ActiveCell.Offset(1, 0).Range("A1").Activate
    ActiveSheet.PageSetup.PrintArea = "$C$2:$AZ$35"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""

qui s'afiche

 

[Big66677]

Bon en faite tous va bien.
en ré-ouvrant mon fichier ça a fonctionné.
depuis je l'ai supprimer c’était un essai.
il ne me reste plus qua trouver un tuto pour maîtriser cet outils.