Copie de cellules vers la dernière ligne d'une autre feuille Excel

Bonjour,

Je souhaite créer une macro pour copier 3 cellules puis les coller à la fin de mon tableau situé dans une autre feuille excel, ce code fera partie d'une plus large macro que je ne mentionne pas ici.

Je souhaite copier les cellules E4:G4 de ma feuille active (dans ce cas là "Sheet3) puis les copier les coller après la dernière ligne de mon tableau situé sur la feuille "Consolidated" situé dans les colonnes B et D. Le problématique étant que ma macro crée une feuille par semaine, et je ne peux pas indiquer le nom de la feuille où je souhaite copier ses données dans mon code mais seulement la feuille active (Activesheet). L'onglet "Consolidated " restera cependant toujours celui où je collerai mes cellules.

Le tableau sera donc alimenté chaque semaine par de nouvelles entrées.

Pourriez vous me proposer un code pour cette tache?

Merci d'avance,

Lucas

PS: Trouvez ci-joint le fichier sur lequel je travaille.

Bonjour Idenarie, le forum,

Je souhaite copier les cellules E4:G4 de ma feuille active (dans ce cas là "Sheet3) puis les copier les coller après la dernière ligne de mon tableau situé sur la feuille "Consolidated" situé dans les colonnes B et D.

A tester...

Sub test()
 Dim derlig As Long
  derlig = Sheets("Consolidated").Range("B" & Rows.Count).End(xlUp).Row + 1
   With ActiveSheet
    If .Name <> "Consolidated" Then .Range("E4:G4").Copy Sheets("Consolidated").Range("B" & derlig)
   End With
End Sub

Cordialement,

Merci beaucoup, ca fonctionne parfaitement.

Bonne semaine