Macro en erreur Excel lors du collage

Je filtre une colonne puis j'essaie de copier et coller les valeurs.

Cependant, l'erreur PasteSpecial de la classe Range a échoué.

Sub DD()
'
' DD Macro
'

'
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$H$132").AutoFilter Field:=8, Criteria1:="1"
    Columns("A:A").Select
    Selection.Copy
    ActiveSheet.Range("$A$1:$H$132").AutoFilter Field:=8
    Columns("I:I").Select
    ActiveSheet.Paste
    Range("I6").Select
End Sub
Sub dds()
'
' dds Macro
'

'
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$I$132").AutoFilter Field:=8, Criteria1:="1"
    Columns("A:A").Select
    Selection.Copy
    ActiveSheet.Range("$A$1:$I$132").AutoFilter Field:=8
    Columns("I:I").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("J9").Select
    Columns("I:I").EntireColumn.AutoFit
    Range("I6").Select
    Application.CutCopyMode = False
End Sub

L'erreur spécifique est,

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

J'utilise la fonction macro d'enregistrement dans Excel. Des idées?

microsoft-excel vba macros

— Zarina Akhtar
source

Placez Selection.PasteSpecial Paste: = xlPasteValues, opération: = xlNone, SkipBlanks _: = False, Transpose: = False sur une ligne, le _ indique un saut de ligne, mais il se peut qu'il se déclenche.

— spikey_richie

Sinon, essayez de remplacer Paste: = xlPasteValues par Paste: = xlValues

— spikey_richie

Tu pourrais juste faire Range("I:I").Value = Range("A:A").Value, sauf que cela peut prendre un certain temps puisque vous copiez un colonne entière .

— BruceWayne