Facturation Excel

Sub ChangementPage(NoLigne As Long)
With Sheets("facture")
    'copie des données de fin et de début de page
    [Modèle!A1:P13].Copy
    'insertion de la zone copiée (il va falloir ajouter la ligne d'entêtes
    .Cells(NoLigne, 1).Insert Shift:=xlDown
    'insertion du saut de page
    .HPageBreaks.Add before:=.Cells(NoLigne + 4, 1)
    'positionnement des formules de tête de page
    .Cells(NoLigne + 9, "H").FormulaR1C1 = "=R[-11]C-1"
    .Cells(NoLigne + 9, "J").FormulaR1C1 = "=R[-11]C"
    .Cells(NoLigne + 9, "K").FormulaR1C1 = "=R[-11]C"
    .Cells(NoLigne + 8, "A") = .[D1]
    .Cells(NoLigne + 8, "C") = .[D2]
    .Cells(NoLigne + 11, "G").FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
    .Cells(NoLigne + 11, "J").FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
    .Cells(NoLigne + 11, "K").FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
    'formatage cellule
    .Range(.Cells(NoLigne + 8, "A"), .Cells(NoLigne + 8, "C")).Font.Size = 16
    .Range(.Cells(NoLigne + 8, "A"), .Cells(NoLigne + 8, "C")).Font.Bold = True
    .Cells(NoLigne + 8, "A").HorizontalAlignment = xlRight
    .Cells(NoLigne + 8, "C").HorizontalAlignment = xlLeft
End With
End Sub

'calcul de la valeur de la variable lig
With Sheets("facture")
    lig = .Range("I65536").End(xlUp).Row
' est-ce que lig représente la dernière ligne d'une page ?
'56 représente le nombre de lignes de la première page
'et 80 le nombre de ligne des autres pages selon le modèle fourni.
'il y a sans doute lieu de modifier cette dernière valeur.
If (lig - 56) Mod 80 = 0 Then
    'si page pleine, changement de page
    ChangementPage lig + 3
    lig = lig + 14
'si B19 est vide, c'est la première ligne à utiliser
ElseIf [I12] = "" Then
   lig = 12
Else
   'sinon, on prend la première ligne vide
   lig = .Range("I65536").End(xlUp)(2).Row
End If