Sub extract()
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 = .[A17].End(xlToRight).Column
DerLig = .[A65000].End(xlUp).Row
.Range(.Cells(17, 1), .Cells(DerLig, DerCol)).Name = "base"
End With
On Error Resume Next
X = Len(Workbooks("gan-z.xls").Name)
If X = 0 Then
ChDir ActiveWorkbook.Path
Workbooks.Open "gan-z.xls"
End If
Set Dw = Workbooks("gan-z.xls").Sheets("Feuil1")
With Dw
Aw.Range("N17:S17").Copy .Range("A1")
.Range("J1").Value = Aw.Range("M17").Value
.Range("J2").Value = "oui"
Aw.Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
"J1:J2"), CopyToRange:=.Range("A1:F1"), Unique:=False
.Range("J1:J2").Clear
End With
End Sub