Sélection des cellule après un filtrage de données

bonjour

j'ai un fichier dans lequel je souhaite filtrer des données et le copier pour les coller dans un autre .

mes en- tête sont en ligne 2, J'ai saisi en automatique cette parti du vba.

sub Macro3()

'

' filtre QSA

Application.WindowState = xlNormal

Windows("STO001F-2020-04-02").Activate

Rows("2:2").Select

Selection.AutoFilter

ActiveSheet.Range("$A$2:$W$50000").AutoFilter Field:=11, Criteria1:="=QSA*" _

, Operator:=xlAnd

Range("A6500:W6500").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

End Sub

ce qui me pose problème c'est : Range("A6500:W6500").Select

Dans ce fichier mes données filtrées commencent à la ligne 6500 mais dans d'autre fichier c'est la 6000 ,7200 ....

j'ai essayé de remplacer range("a6500:w6500").select par rows ("3:3").select , mais ça me sélectionne toute la ligne.

comment écrire que je sélectionne la ligne en dessous mes en-têtes pour les colonnes de A à W.

merci de votre aide par avance

Philippe 87

en cherchant sur le net j'ai trouvé la solution

Range("A3:w50000").SpecialCells(xlVisible).Copy