Sub Septembre()
Dim NbFeuille As Long
Dim Plage As Range
Set Plage = Sheets("Extraction").Range("B1:BS1", Sheets("Extraction").Range("a" & Rows.Count).End(xlUp))
' Nombre de feuille dans le classeur
NbFeuille = Worksheets.Count
' Filtre avancé pour chaque feuille
For ind = 14 To NbFeuille
Plage.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(ind).Range("A201:A202"), CopyToRange:=Sheets(ind).Range("o132:Cf147"), Unique:=False
Next ind
End Sub