macro copie cellule

Sub copier()

    With Sheets("Feuil1") 'Action avec la feuille de tableau source
    x = Range("A65536").End(xlUp).Row ' x récupère la dernière ligne non-vide du tableau source
    End With
    
    With Sheets("Feuil2")   'Nom de la feuille du tableau de destination
    Absc = .Range("A65536").End(xlUp).Row + 1 ' Récupération de la dernière ligne non-vide du tableau de destination [Feuil2] + 1
    .Range("A" & Absc).Value = Sheets("Feuil1").Range("A" & x).Value 'Copie de la colonne A
    .Range("B" & Absc).Value = Sheets("Feuil1").Range("C" & x).Value 'Copie de la colonne C
    .Range("C" & Absc).Value = Sheets("Feuil1").Range("E" & x).Value 'Copie de la colonne E
    End With
    
End Sub