Aide Copie plusieurs Feuil Excel

Bonjour a tous,

Je suis nouvelle dans le VBA et je suis débutante, soyer indulgent avec moi

je dois faire un petit programme vba qui copie toutes les données des tableaux des autres feuilles excel (Feuil2,Feuil3....etc) et les copie un par un dans le tableau Feuil1 qui est la Feuil principale (les données du 2eme tableau en dessous du 1er ....etc)

En résumé :

je veux qu'a chaque fois que je rajoute une feuil excel et que j'active la macro ......il copie toutes les données des tableaux et les colles dans la feuil 1 principale et qui les emplie c'est a dire copie le tableau 1 puis le tableau 2 .......etc

Dans l’exemple que j'ai mis toute les données commence par la cell A5.

j'espere que j'ai bien expliquer

Merci d'avance pour votre aide.

Bonjour,

Essaie cette macro :

Sub Test()
Dim Ws As Worksheet
Dim LigneS As Long, LigneC As Long
Dim ColC As Integer
    With Worksheets("Feuil1")
        .UsedRange.Offset(1).Clear
        For Each Ws In Worksheets
            If Ws.Name <> "Feuil1" Then
                LigneC = Ws.Range("A" & Rows.Count).End(xlUp).Row
                ColC = Ws.Cells(4, Columns.Count).End(xlToRight).Column
                LigneS = .Range("A" & Rows.Count).End(xlUp).Row + 1
                Ws.Range(Ws.Cells(5, 1), Ws.Cells(LigneC, ColC)).Copy .Cells(LigneS, 1)
            End If
        Next Ws
    End With
End Sub

A+

Bonjour frangy,

Super merci pour ton aide, ça fonctionne parfaitement.

Encore une fois merci

Bonne journée