Fonction permettant un saut de page selon critère

Bonjour

j'ai dans une colonne A, une liste numérotée triée crossant, avec des n° allant de 101 à xxxx (101,102,...)

je souhaiterais connaitre la méthode (une fonction personnalisée ?) permettant de faire un saut de page à chaque fois que l'on change de centaine:

101

201

301

401

etc...

la ligne de titre est en ligne 1

les nombre commencent en A2

Merci d'avance pour votre aide

peps59

Bonjour,

Sub saut100()
    Dim lig As Long
    For lig = 102 To Cells(Rows.Count, "A").End(xlUp).Row Step 100
        ActiveSheet.HPageBreaks.Add Before:=Cells(lig, "A")
    Next lig
End Sub

eric

Bonsoir

merci pour ta réponse

la macro saut100, fait un saut de ligne à la ligne 102 !

Or je souhaite qu'elle fasse un saut de ligne à chaque fois qu'elle rencontre un changement de centaine dans les nombres se trouvant dans la colonne A (en supposant que les nombres soient triés), de A2:A

Peps59

Bonjour,

Avec "avec des n° allant de 101 à xxxx (101,102,...)" je suppose que tous les nombres sont présents, et j'ai supposé également une ligne de titre.

Ca fait donc un saut en 102, 202, etc

eric