Impression par VBA

Sub Macro1()
   Nlig = Range("B" & Rows.Count).End(xlUp).Row
   ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
   ActiveSheet.PageSetup.PrintArea = "$B$" & Nlig - 9 & ":$I$" & Nlig
End Sub

Const NF = "Feuil1"
Const codeb = "B"
Const cofin = "I"
Const nbli = 10

Sub Imprime()
Dim plage As String, lifin As Long
With Sheets(NF)
    lifin = .Range(codeb & Rows.Count).End(xlUp).Row
    plage = codeb & lifin - nbli + 1 & ":" & cofin & lifin
    .PageSetup.PrintArea = plage
    .PrintOut
End With
End Sub