Faire un tri d'après sélection et le coller dans autre feuillet

Bonjour à tous,

Je m'arrache les cheveux sur plusieurs posts où malgré mes recherches, je n'arrive pas à trouver la réponse.

Je souhaite faire avec VBA un tri dans une liste, et puis qu'il me copie-colle ces résultats dans le feuillet à côté. Les valeurs que je cherche sont dans la colonne I, et je voudrais qu'il repère ceux qui s'appellent ,Cst et ,Cst2.

Le problème c'est que chaque mois la liste varie et son nombre de lignes aussi, et que quand j'ai voulu faire une macro-type, il est resté sur le nombre de lignes original. Alors j'ai voulu lui donner un nombre bidon que je ne risque pas de dépasser (30 000). Mais là, comment dire, cela ne marche plus du tout !!
Y aurait-il une bonne âme pour m'aider, sachant que je développe depuis... Hier !

Merci d'avance pour votre aide...


Sub Macro2()
'
' Macro2 Macro
'

'
Selection.AutoFilter
ActiveSheet.Range("$A$1:$M$30000").AutoFilter Field:=9, Criteria1:= _
"=,CST", Operator:=xlOr, Criteria2:="=,CST2"
Range("A1:M30000").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "Cstetcst2"
End Sub