Copier Coller valeur autre fichier Excel

Bonjour,


J'ai créé une macro qui vise à faire cela :

1) Filtrer des données d'un classeur (fichier A)
2) Copier ces données filtrées
3) Créer un nouveau classeur (fichier B)
4) Coller les données du fichier A dans le fichier B

Voila le rendu :

Sub Macro1()
'
' Macro1 Macro
'

'


    [A1].AutoFilter Field:=2, Criteria1:= _
        "PRODUIT"
    ActiveSheet.AutoFilter.Range.Copy _
    

Dim classeur As Workbook
Dim Nom As String

Set classeur = Application.Workbooks.Add
Nom = InputBox("Nom de fichier", "Enregistrer sous")

    With classeur

ChDir "C:\Users\Desktop"
ActiveWorkbook.SaveAs Filename:=Nom
    
    End With
    
ActiveSheet.Paste

End Sub

Tout se déroule bien jusqu’à l'étape 4. J'ai ce message d'erreur "La méthode Paste de la classe Worksheet a échoué."
Voyez vous l'anomalie ?


Cordialement