Bonjour à tous,

Mes connaissances sur excel étant limitées, je cherche une alternative à la méthode copy/paste qui mise en application dans mon code me renvoie selon la feuille du classeur sur laquelle le code est appliqué un message d'erreur "la méthode pastespecial de la classe worksheet a échoué".

Merci d'avance pour votre aide

L'extrait de mon code où l'erreur se déclare

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
With ActiveSheet

    .Range("$A$2:$X$2266").AutoFilter Field:=2, Criteria1:="NOUVEAU"

    .Range("G2:T16500").SpecialCells(xlCellTypeVisible).Copy

    Sheets.Add After:=ActiveSheet

        ActiveSheet.Name = "NVX_BDD"
    
        With Worksheets("NVX_BDD")

        .Paste

        End With

End With