sélectionner et copier la dernière ligne non vide

with workbooks("Classeur1.xlsm").sheets("Feuil2")
   .range("A"& .range("A" &rows.count).end(xlup).row).entirerow.copy
end with
with workbooks("Classeur2.xlsm).sheets("Feuil1")
  .range("A1").paste  'voir du coté de PasteSpecial pour inserer les cellules copiées
end with

Sub test()
Set FeuilleOrigine = ActiveWorkbook.Sheets("Feuil1")
Set FeuilleDestinationLiaison = ActiveWorkbook.Sheets("Feuil2") 'pour copie avec liaisons vers le fichier origine
Set FeuilleDestinationValeur = ActiveWorkbook.Sheets("Feuil3") 'pour copie des valeurs uniquement --> plus de liaison


With FeuilleOrigine
   .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row).EntireRow.Copy
   FeuilleDestinationValeur.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
   .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row).EntireRow.Copy Destination:=FeuilleDestinationLiaison.Range("A1")
   
End With

End Sub

Sub test()
Set FeuilleOrigine = ActiveWorkbook.Sheets("Feuil1")
Set FeuilleDestinationLiaison = ActiveWorkbook.Sheets("Feuil2") 'pour copie avec liaisons vers le fichier origine
Set FeuilleDestinationValeur = ActiveWorkbook.Sheets("Feuil3") 'pour copie des valeurs uniquement --> plus de liaison


With FeuilleOrigine
   last = .Range("A" & Rows.Count).End(xlUp).Row
   Do
    If Range("A" & last) = "" Then last = last - 1
    Loop Until Range("A" & last) <> ""
     
    .Range("A" & last).EntireRow.Copy
    FeuilleDestinationValeur.Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
    .Range("A" & last).EntireRow.Copy Destination:=FeuilleDestinationLiaison.Range("A1")
   
End With

End Sub