Insérer saut de page au changement d'initiale

J'ai un tableau trié alphabétiquement sur la 1ère colonne. J'aimerais insérer automatiquement un saut de page, après chaque changement de 1ère lettre sur cette première colonne.

sub zaza()
 Dim c As Range
 On Error Resume Next
 For Each c In Range("Zn")
  If Left(c, 1) <> Left(c.Offset(-1), 1) Then _
   ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=c
 Next c
 end sub

Auteur :

Mots clefs associés à cette page : , , , , , , , ,