VBA : sélection de cellule, filtre et copier coller

Bonjour à tous,

Je débute un peu et je ne comprends pas.
J'ai fait mon code par enregistrement et en voulant l'essayer il ne fonctionnement pas, pouvez vous m'aider s'il vous plait.
(Le but de la macro est de trouver les lignes avec un "oui" sur une colonne précise et copier uniquement les lignes avec un "oui" dans une colonne précise et les coller dans une autre feuille)

Voici le code

Option Explicit

Private Sub Btn_recherche_Click()

    Sheets("AES").Select
    Range("A7:Q7").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$7:$Q$47").AutoFilter Field:=8, Criteria1:="Oui"
    Rows("8:100").Select
    Selection.Copy
    Sheets("Bilan_AES").Select
    Range("A11").Select
    ActiveSheet.Paste
    Sheets("AES").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Sheets("Bilan_AES").Select
    Range("M6").Select
    
End Sub

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.