Je souhaite répéter une ligne de titre sauf pour la dernière page.
Je m'explique : J'ai créé un outil de devis en VBA. Suivant la taille du devis, j'insère un saut de page. La dernière page du devis est les conditions générales de ventes.
Mon soucis : Lorsque le devis fait plus d'une page, je répète la ligne de titre sauf que sur ma dernière page (page des CGV) apparaît la ligne de titre.
For i = 47 To d Step 50
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=Rows(i + 1)
ActiveSheet.Range("B23:I23").Copy
ActiveSheet.Range("B" & i + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Next i
End If
End Function
Mais si quelqu'un à une autre solution plus simple je suis preneur.