Sub recap()
Dim Sh
Dim DerLig As Long
Dim LesFeuilles
Application.ScreenUpdating = False
[COLOR="Red"]LesFeuilles = Array("Feuil1", "Feuil2", "Feuil3")[/COLOR]
With Sheets("recap")
.Range("A2:B1000").Clear
.Range("N1") = "stock": .Range("N2") = "o"
Sheets("Feuil1").Range("B1:C1").Copy .Range("A1")
For Each Sh In LesFeuilles
DerLig = .[A65000].End(xlUp).Row + 1
Sheets(Sh).Range("B1:C1").Copy .Cells(DerLig, 1)
Sheets(Sh).Range("B1:N" & Sheets(Sh).[B65000].End(xlUp).Row).Name = "base"
Sheets(Sh).Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
"N1:N2"), CopyToRange:=.Range(.Cells(DerLig, 1), .Cells(DerLig, 2)), Unique:=False
.Rows(DerLig).Delete
.Range("N2") = "o"
Next Sh
.Columns(14).Clear
End With
End Sub