XL 2013 Macro pour copier des données d'un onglet pour les coller dans un autre onglet selon des conditions

[onyirimba]

Bonjour,

Est-ce que je pourrai obtenir une Macro qui copie les données de l'onglet "DEBUT" pour les coller en ligne en dessous des données de l'onglet "FIN" ?
Il faudrait que le la Macro soit ADAPTABLE par exemple si les données de l'onglet "FIN" se termine ligne 50 => il faudrait que les données soient copiés ligne 51 juste après la fin des données de la dernière ligne qui contient des informations
J'ai joint un fichier illustrant les propos.

Merci d'avance pour votre aide
Cordialement

 

[fanch55]

Bonjour,
Testez la sub ci-dessous :

Sub Transfert()
    If MsgBox("Voulez-vous copier les données de la feuille Debut", vbQuestion + vbYesNo) = vbYes Then
        Target_row = Worksheets("Fin").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
        Worksheets("Debut").Range("A1").CurrentRegion.Copy _
            Worksheets("Fin").Range("A" & Target_row)
        Worksheets("Fin").Activate
        ActiveWindow.ScrollRow = Target_row - 1
    End If
End Sub

 

[onyirimba]

Merci