Sub Extr_BDResa_Arrivées_Aujourdhui_A_Corriger()
' Extr_BDResa Macro
'Stop
'Range("_BDResa").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"_CR"), CopyToRange:=Range("V1:AG1"), Unique:=False
Sheets("BDRes2012").Range("Q2:R2").Value = ""
Sheets.Add
Sheets("Arrivées Aujourdhui").Select
Cells.Clear
Sheets("BDRes2012").Range("_ZD").Copy Destination:=ActiveSheet.Range("A1")
Sheets("BDRes2012").Range("Q2").Value = Date
Range("_BDResa").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"_CR"), CopyToRange:=Range("A1:L1"), Unique:=False
ActiveSheet.Name = "Arrivées " & Format(Date, "DD MM YYYY")
End Sub