je veux filtrer mes données(en vb)

Worksheets(13).Column(2).AutoFilter_
Criteria = "A"
Sheets(12).Activate
ActiveCell.Copy Sheets(12).Range("A1")

pour les copier dans une autre feuille mais dès que j'execute ma macro, ca plante