Sub Extraction_TEM_ref()
Dim Aw As Object, Dw As Object
Dim DerCol As Integer
Dim DerLig As Long
Dim X As Byte
Application.ScreenUpdating = False
Set Aw = ThisWorkbook.Sheets("Feuil1")
With Sheets("feuil1")
DerCol = .[iv16].End(xlToRight).Column
DerLig = .[A1040].End(xlUp).Row
.Range(.Cells(16, 1), .Cells(DerLig, DerCol)).Name = "base"
End With
On Error Resume Next
X = Len(Workbooks("BDFi03004TEMetFI03014.xls").Name)
If X = 0 Then
ChDir ActiveWorkbook.Path
Workbooks.Open "BDFi03004TEMetFI03014.xls"
End If
Set Dw = Workbooks("BDFi03004TEMetFI03014.xls").Sheets("Feuil 1")
With Dw
Aw.Range("a16:b16").Copy .Range("a1")
.Range("J1").Value = Aw.Range("bw16").Value
.Range("J2").Value = "oui"
Aw.Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
"J1:J2"), CopyToRange:=.Range("A17:B17"), Unique:=False
.Range("J1:J2").Clear
.Cells.ClearFormats
End With
'Application.Run "'Nle BD.xls'!Extraction_TEM_données"
End Sub