Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "Print"
End Sub
Private Sub Workbook_Open()
ActiveWorkbook.Names.Add Name:="Print", RefersToR1C1:="=OFFSET(Feuil1!C3:C6,,,COUNTA(Feuil1!C3))"
End Sub