Copier une plage de cellule d'une feuille Excel à une autre

Bonjour à tous,

Je cherche à copier une plage de cellule sur une autre feuille excel afin de sauvegarder leur contenu.

Mon objectif est de copier cette plage de cellule à partir de la première cellule libre du premier rang.

Pour l'instant j'ai fait le code suivant :

Sub Rectangle4_Click()

Dim LastCell As Range

Worksheets("Sheet 2").Activate
    Set LastCell = Range("A1").End(xlToRight).Offset(0, 5)

Worksheets("Sheet 1").Range("A1:N1000").Copy
Worksheets("Sheet 2").LastCell.PasteSpecial

End Sub

Cependant ce code ne fonctionne pas et s'arrête à la dernière ligne.

Je crois que c'est à cause de la variable LastCell que j'ai implémenté, l'erreur qui apparait indique que l'objet ne supporte pas cette propriété ou méthode.

Sauriez-vous comment trouver une solution pour résoudre cette erreur ou réaliser un autre code qui permette de faire quelque chose d'équivalent ?

Merci de votre aide !

Bonjour Assertif

Je ne comprend pas vraiment où tu veux copier

Pour copier dans la 1ère colonne libre de la ligne 1:

Sub Rectangle4_Click()
'Copie dans 1ère colonne libre ligne 1
    Worksheets("Sheet 2").Activate
    LastCell = Cells(1, Columns.Count).End(xlToLeft).Column + 1
    Worksheets("Sheet 1").Range("A1:N1000").Copy
    Worksheets("Sheet 2").Cells(1, LastCell).PasteSpecial
End Sub

Pour copier après la dernière ligne :

Sub Rectangle4_Click()
'Copie après dernière ligne
    Worksheets("Sheet 2").Activate
    LastLig = Cells(Rows.Count, "A").End(xlUp).Row
    Worksheets("Sheet 1").Range("A1:N1000").Copy
    Worksheets("Sheet 2").Range("A" & LastLig).PasteSpecial
End Sub

Vois si tu trouves ton bonheur

C'est bon le premier code correspond à ce que je veux faire merci !