Macro pour Copier plusieurs Feuilles Excel en une seule

Bonjour à tous ,

#help#work#panic

Je suis en galère, je suis nocive en VBA , je dois automatiser un fichier Excel.

Je dois copier toutes les feuilles Excel en une seule (la première)

J'ai déjà trouvé une solution sur ce forum, mais ça ne marche pas à 100 % .Dans mon cas, j'ai pas le même format dans chaque feuille.

Je vous mets en PJ une idée de ce que je veux faire.

Je vous serai reconnaissant de votre aide/orientation.

Bonne soirée

VA

Bonsoir,

Un test rapide :

Sub TEST()
For i = 2 To 4
    Worksheets("Feuil" & i).UsedRange.Copy Destination:=Worksheets(1).Range("A" & Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
Next i
End Sub

Le nombre de page est bien sûr automatisable

Bonne soirée

C'est parfait

Je vous remercie :)

Bon weekend