Plage d'un filtre en fonction d'une cellule

Bonjour à tous,

Je n'arrive pas à trouver le code me permettant de faire un filtre sur une plage défini par une cellule...

Voici le code actuel

' Défini le nombre de ligne à traiter

Dim NbLignes As Long

NbLignes = Sheets("NOTICE").Range("C11")

'Filtre sur CCA FNP FNP0 AAR AAR0 dans Analyse FG et copie dans "OD Analyse FG A TRANSF."

Sheets("Analyse FG").Select

ActiveSheet.Outline.ShowLevels RowLevels:=2

ActiveSheet.Range("$A$10:$N$30000").AutoFilter Field:=14, Criteria1:=Array( _

"AAR", "AAR0", "CCA", "FNP", "FNP0"), Operator:=xlFilterValues

J'aimerai limiter le filtre à "NbLignes" qui est égale à 2000 l'occurence au lieu des 30000

Je n'arrive pas à remplacer ce 30000 par NbLignes :/

Merci à vous !

bonjour

peut être

ActiveSheet.Range("$A$10:$N$" & NbLignes).AutoFilter Field:=14, Criteria1:=Array( _

A plus sur le forum

Merci encore !!!