Insérer un saut de page toutes les 14 colonnes

Bonjour à tous,

Comme c'est indiqué dans le titre, mon problème est d'arriver à faire une boucle pour insérer un saut de page toutes les 14 colonnes dans ma zone d'impression définie par VBA.

Je ne pense pas qu'il y ait besoin de fichier pour illustrer puisqu'il s'agit uniquement d'un bout de code que je n'arrive pas à trouver ou qui ne marche pas quand j'essaye de le construire.

J'espère que vous pourrez m'aider.

Merci d'avance !

Bonjour,

'nombre de colonne de la plage (print area)
x = Range(ActiveSheet.PageSetup.PrintArea).Columns.Count
'enlever tous les sauts de page
ActiveSheet.ResetAllPageBreaks
'ajout un saut de page tous les 14 colonnes
For i = 14 To x Step 14
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Cells(1, i)
Next