Saut de ligne et décalage

Sub SautPageGroupe()
   ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
   ActiveSheet.ResetAllPageBreaks ' raz
   For i = 2 To [A65000].End(xlUp).Row
     If Left(Cells(i + 1, 1), 4) <> Left(Cells(i, 1), 4) Then
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 1, 1)
     End If
   Next
   ActiveSheet.PrintPreview
   'ActiveSheet.ResetAllPageBreaks ' raz
End Sub

Sub InsereLigne()
   For i = [A65000].End(xlUp).Row To 3 Step -1
     If Left(Cells(i - 1, 1), 4) <> Left(Cells(i, 1), 4) Then
        Rows(i).Insert
     End If
   Next
End Sub

Sub SautPage2()
  ActiveSheet.ResetAllPageBreaks ' raz
 [B] h = 20 ' hauteur de page à adapter[/B]
  [a2].Select
  Do While ActiveCell.Row < [A65000].End(xlUp).Row
    ActiveCell.Offset(h, 0).Select
    tém = True
    d = -1
    Do While tém
      If Left(ActiveCell.Offset(d, 0), 4) <> Left(ActiveCell, 4) Then
         tém = False
      Else
         d = d - 1
      End If
   Loop
   If (-d) < h Then ActiveCell.Offset(d + 1, 0).Select
   ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
   Loop
   [a2].Select
End Sub