Filtre et copie vers une autre feuille (en VBA)

Bonjour le forum,

je souhaite copier dans une autre feuille les résultats avec une note égale à 0. Pour ce faire, j'ai fait un tri sur la colonne de la note =à 0.
Problèmes :
quand je lance le tri pour la copie,

• le programme tourne "très lent"
• et après la copie est faite dans la feuille de destination mais dépasse la limite (de I à XFD la fin)
  Cf. Fichier joint ci-dessous

Sub Filtre()

 'on efface la feuille Rapport
    With Sheets("Rapport")
     .Range("A10:H" & Range("A38").End(xlUp).Row).Clear
    End With

 'utilisation d'un filtre pour ne sélectionner que les data utiles
     Sheets("Contrôle").Range("C9").AutoFilter
     ActiveSheet.Range("$A$9:$H$27").AutoFilter Field:=3, Criteria1:="=0", Operator:=xlAnd, Criteria2:="=0"

    Range("A9:H27").Select
  'copier vers la feuille Rapport
     Selection.Copy Destination:=Sheets("Rapport").Rows("10:10")

End Sub

Si quelqu'un peut m'aider, svp.

Je vous remercie à l'avance

juju

Hello,

Comme ceci :

     Selection.Copy Destination:=Sheets("Rapport").[A10]

Bonsoir Rag02700,

Merci, j'ai testé et super cela marche

Bonne soirée et à plus

Juju