Sub Import()
Set Destination = ActiveWorkbook
Dim ladate As Date, Plage As Range, plaga As Range
ladate = DateAdd("d", -7, Date)
Source = Application.Dialogs(xlDialogOpen).Show
If Source = False Then
MsgBox ("Aucun fichier sélectionné")
Exit Sub
Else
Set Source = ActiveWorkbook
Source.Activate
Sheets(1).Select
For I = 2 To Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
If Sheets(1).Range("A" & I).Value >= ladate Then
If Plage Is Nothing Then
Set Plage = Sheets(1).Range("A" & I & ":" & "E" & I)
Else
Set Plage = Union(Plage, Sheets(1).Range("A" & I & ":" & "E" & I))
End If
End If
Next
Destination.Activate
For J = 2 To Sheets(2).Range("A" & Rows.Count).End(xlUp).Row
Set plaga = Sheets(2).Range("A" & J & ":" & "E" & J)
Next
plaga.ClearContents
Plage.Copy Destination:=Sheets(2).Range("A2")
Source.Activate
Application.CutCopyMode = False
ActiveWindow.Close SaveChanges:=False
End If
End Sub