Sub SautPageversion_boisgontier_modifiée()
ActiveSheet.ResetAllPageBreaks ' raz
hpageMax = 66 ' hauteur de page maxi
hfiche = 5
hpage = (hpageMax \ hfiche) * hfiche 'le signe "\" permet-il d'obtenir un nombre entier suite à la division ?
For ligne = hpage + 1 To [A65000].End(xlUp).Row Step hpage
Cells(ligne, 1).Select 'facultatif : permet de voir ou en est le programme en débogage pas à pas
If Cells(ligne, 1).Value = "Nom" Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(ligne, 1)
Else
nouvelle_ligne = ligne - 1
Cells(nouvelle_ligne, 1).Select 'facultatif : permet de voir ou en est le programme en débogage pas à pas
If Cells(nouvelle_ligne, 1).Value = "Nom" Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(nouvelle_ligne, 1)
Else
nouvelle_ligne = ligne - 2
Cells(nouvelle_ligne, 1).Select 'facultatif : permet de voir ou en est le programme en débogage pas à pas
If Cells(nouvelle_ligne, 1).Value = "Nom" Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(nouvelle_ligne, 1)
Else
nouvelle_ligne = ligne - 3
Cells(nouvelle_ligne, 1).Select 'facultatif : permet de voir ou en est le programme en débogage pas à pas
If Cells(nouvelle_ligne, 1).Value = "Nom" Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(nouvelle_ligne, 1)
Else
nouvelle_ligne = ligne - 4
Cells(nouvelle_ligne, 1).Select 'facultatif : permet de voir ou en est le programme en débogage pas à pas
If Cells(nouvelle_ligne, 1).Value = "Nom" Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(nouvelle_ligne, 1)
End If
End If
End If
End If
End If
Next ligne
End Sub