Sub Extract()
Sheets("BDD").Range("A1:E" & Sheets("BDD").[A65000].End(xlUp).Row).Name = "base"
For i = 1 To 2
Feuille = IIf(i = 1, "A", "B")
Derlig = Sheets("ça match ou pas").Cells(65000, i).End(xlUp).Row
With Sheets("ça match ou pas")
Sheets("BDD").Range("base").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range(.Cells(1, i), .Cells(Derlig, i)), CopyToRange:= _
Sheets("Secteur " & Feuille).Range("A1:E1")
End With
Next i
End Sub