Zone d impression par date

Option Explicit 

Sub Imprimer() 
    Dim DatePre As Date 
    Dim DateDer As Date 
    ' 
    Dim LigPre As Integer, LigDer As Integer 
    Dim ColPre As Integer, ColDer As Integer 
    Dim LigPre_Select As Integer, LigDer_Select As Integer 
    Dim i As Integer 
    Dim DateLue As Date 
    ' 
    LigPre = 2 
    ColPre = 1: ColDer = 5 
    ' récupérer les dates 
    Worksheets("Feuil2").Select 
    DatePre = Cells(1, 2).Value 
    DateDer = Cells(2, 2).Value 
    If ((DatePre < "01/01/2012") Or (DatePre < Now)) Then Exit Sub 
    ' 
    ' sélectionner la feuille 
    Worksheets("Feuil1").Select 
    ' sélectionner les colonnes 
    Columns("A:E").Select 
    ' trier les colonnes par date 
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ 
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
        DataOption1:=xlSortNormal 
    ' définir la dernière ligne non-vide 
    LigDer = Range("A" & Rows.Count).End(xlUp).Row 
    ' définir la valeur des variables lignes 
    LigDer_Select = 0 
    LigPre_Select = (LigDer + 1) 
    ' mémoriser les lignes à imprimer 
    For i = LigPre To LigDer 
        DateLue = Cells(i, 1).Value 
        If ((DateLue >= DatePre) And (DateLue <= DateDer)) Then 
            If (i < LigPre_Select) Then LigPre_Select = i 
            If (i > LigDer_Select) Then LigDer_Select = i 
        End If 
    Next i 
    ' sélection de la plage 
    Range(Cells(LigPre_Select, ColPre), Cells(LigDer_Select, ColDer)).Select 
    ' sélectionner la plage d'impression 
    ActiveSheet.PageSetup.PrintArea = Selection.Address '"$A$5:$E$6" 
    ' imprimer 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
    ' sélectionner une cellule 
    Range("A1").Select 
End Sub