Erreur lors de l'utilisation du button x actif pour copyr et coller

J'essaie de configurer un button de command qui copyra et cola des données d'une feuille à l'autre.

Actuellement, mon code ressemble à ceci:

Private Sub CommandButton1_Click() ThisWorkbook.Sheets("Raw Data").Activate ThisWorkbook.Sheets("Data AC").Range("A1:J1000").Select Selection.Copy ThisWorkbook.Sheets("Raw Data").Range("A2:J1001").Select Selction.Paste End Sub 

Je continue d'avoir une erreur en disant 'select method of range class failed', mais je ne peux pas déterminer comment le réparer. Merci

Essaye ça:

 Private Sub CommandButton1_Click() ThisWorkbook.Sheets("Raw Data").Activate Sheets("Data AC").Range("A1:J1000").Copy Sheets("Raw Data").Range("A2:J1001") End Sub