Sélectionner la ligne + Copier

Bonjour à tous,

J'ai un problème avec mon script, actuellement il fait tout un tas de choses pour finalement sélectionner la cellule d'une ligne (variable), et le projet est de à partir de cet ActiveCells, séléctionner toute la ligne, la copier pour la coller plus tard et j'ai pour cela utiliser cette ligne :

ActiveRows.Copy

ActiveCells.Rows.Copy

ActiveCells.EntireRows.Select.Copy

Ou encore :

EntireRows.Select.Copy

Mais ceux-ci ne semblent pas marcher et me renvoie cette erreur :

Erreur d'exécution '424': Objet requis

Voici le code :

        If Cells(i, 1).Value = "Refund" Then

            'Selection.EntireRow.Insert

            Sheets("Stripe").Select
            r = Cells(i, 4).Value
            MsgBox (d)
            MsgBox (r)

            'Change de Sheet
            Sheets("Ventes 2022").Select

            'Filtre par la date du Refund
            ActiveSheet.Range("$A$1:$AB$12569").AutoFilter Field:=1, Criteria1:=Array( _
            "="), Operator:=xlFilterValues, Criteria2:=Array(2, d)
            Cells(1, 1).Select
            'Insert une nouvelle ligne à la fin
            Selection.End(xlDown).Offset(1, 0).Select
            Selection.EntireRow.Insert
            'Supprime le filtre
            ActiveSheet.Range("$A$1:$AB$12568").AutoFilter Field:=1

            Cells.Find(What:=r, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
            , SearchFormat:=False).Activate

    'Voici la ligne qui pose problème :
            ActiveRows.Copy

            Selection.End(xlDown).Offset(1, 0).Select
            ActiveCells.Paste

        End If

Merci d'avance !

Squirrel

Bonjour,

Pour copier la ligne de la cellule active, essaie

ActiveCell.EntireRow.Copy

Ah super ça fonctionne ! Merci énormément

Maintenant c'est le

ActiveCell.Paste

qui pose problème...

Ça me fais la même erreur que pour le copy, je sais pas pourquoi, mais j'ai beaucoup de mal à faire fonctionner le .Copy et .Paste

With Sheets("Feuil1") 'nom feuille a adapter
    dl = .Range("A" & Rows.Count).End(xlUp).Row + 1 'colonne a adapter
    ActiveCell.EntireRow.Copy
    .Range("A" & dl).PasteSpecial Paste:=xlPasteValues  'colonne a adapter
    Application.CutCopyMode = False
End With