Bonjour à tous,

J'ai un petit problème qui n'en n'est certainement pas un:
avec un code que j'utilise j'ai un report d'infos sur ma feuille "Etiquettes" sous ce format
--> info 1
-->
--> info 2
-->
--> info 3
----------------------------------- (saut de page)
--> info 1
-->
--> info 2
-->
--> info 3
----------------------------------- (saut de page) etc.

Seulement voilà les saut de pages toutes les 5 lignes c'est moi qui les faisais manuellement jusqu'à présent. Je voudrais utiliser ce code là pour automatiser mes sauts de pages et ça marche cependant en première page figurent seulement 4 lignes. Je me doute que c'est dû au

.Rows(1).Delete

mais lorsque j'enlève ce morceau les pages suivantes sont décalées

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 Sub Sautdepage()
 
    Sheets("Etiquettes").Select
 
    Dim N As Long
    Dim I As Integer
 
    With ActiveSheet
        .ResetAllPageBreaks
        .Rows(1).Delete
    N = .Range("A65536").End(xlUp).Row
        .PageSetup.PrintArea = "A1:A900" & N
    End With
 
    For I = 1 To N / 5
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(I * 5, 1)
    Next I
 
    End Sub