Copier 2 feuilles Excel dans une seule

Bonjour à tous

Voici mon probleme qui doit etre simple mais meme avec les recherches j'arrive pas!!!!

J'ai 5 onglets : Planif D/Planif F/Command D/Command F/Recap

Les données dans Planif D et Command D sont pris sur un fichier externe et illimité en nb de données

Les tableaux dans Planif F et Command F sont identique il ya juste les données qui change

Je voudrai que les données de ces 2 onglets se copie l'un derriere l'autre dans l'onglet Recap

J'ai essaye un bout de code que j'ai trouve mais j'arrive pas

Merci de votre aide

Sub Recap()

Application.ScreenUpdating = False

Sheets("Planif F").Range("A1:G65000", [A1:G65000].End(xlDown)).Copy

Sheets("Command F").Range("A1:G65000", [A1:G65000].End(xlDown)).Copy

Sheets("Recap").Range("A1").End(xlDown).Select

ActiveCell.Offset(1, 0).Select

Selection.Paste

Application.ScreenUpdating = True

End Sub

Bonjour,

A voir si ça convient :

Sub Recap()

    Dim Plage As Range

    'défini la plage de A1 à K?
    With Sheets("Planif F")

        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 11).End(xlUp))

    End With

    'colle cette plage en feuille Recap
    With Sheets("Recap")

        'si A1 est vide, la feuille est vide donc, pas de décalage
        'sinon, colle au dessous
        If .Cells(1, 1) = "" Then

            Plage.Copy .Cells(.Rows.Count, 1).End(xlUp)

        Else

            Plage.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)

        End If

    End With

    'défini la plage de A1 à K?
    With Sheets("Command F")

        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 11).End(xlUp))

    End With

    'colle cette plage en feuille Recap sous les autres valeurs
    With Sheets("Recap")

        Plage.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)

    End With

End Sub

Hervé.