XL 2013 Exécuter une macro pour certaines feuilles

[dubxav]

Bonjour,
J'ai crée une macro qui fonctionne depuis quelques temps.
toutefois lorsque je rajoute une nouvelle feuille, ma macro ne vient pas ajouter automatiquement une ligne supplémentaire.

Auriez-vous une astuce sachant que ma macro doit fonctionner à partir de la feuille 14 jusqu’à la dernière feuille (et les futures)?

Cordialement,

Xavier

 

[Compte Supprimé 979]

Bonjour,

Au dela du fait que je ne vois pas à quoi peut servir un tel code,
le voici optimisé

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

A+

 

[dubxav]

Merci beaucoup Bruno pour votre aide et votre rapidité!