XL 2019 Copier / Coller des cellules d'un classeur dans un autre classeur

[Dravol]

Bonjour à tous,

Je souhaiterais copier certaines cellules d'un classeur pour les coller à la fin d'un tableau (donc 1ière ligne vide) en gardant le format du fichier destination.

Ma macro ci-dessous s'exécute correctement mais ne recherche pas la dernière ligne après chaque lancement...

Il faudrait remplacer => Range("A164").Select par un code qui recherche la 1ière ligne vide il me semble.

Pouvez-vous m'aider ?


Sub transfert()
'
' Transfert Macro
'

'
Range("AE3:AU9" & derlig + 1).Select
Selection.Copy
Windows("LUP Atelier.xls").Activate
Range("A164").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Analyse des pertes journalière v4.xlsm").Activate
End Sub

Drav.

 

[sylvanu]

Bonjour Dravol,

Essayez :

Remplacez:
Range("A164").Select
Selection.End(xlDown).Select

Par:
Range("A" & 1 + Range("A65500").End(xlUp).Row).Select

 

[Dravol]

Bonjour Dravol,

Essayez :

Remplacez:
Range("A164").Select
Selection.End(xlDown).Select

Par:
Range("A" & 1 + Range("A65500").End(xlUp).Row).Select

Bonjour sylvanu

Comme d'habitude vos réponses sont précises et répondent à mes attentes.

Merci Sylvanu.

Drav.