Bonjour à Tous

J'ai besoin d'aide pour réaliser une macro.
Mon Objectif : la Macro servira à mettre (compiler) dans une "seule nouvelle " Feuille Excel, des feuilles d'autres fichiers (environ 31) dont je le total peu rester sur une même feuille excel. Je peux donc ainsi avoir une base de travail.

Difficulté : je dois coller les feuiles de chacun de ces 31 fichiers à la suite de l'autre dans la même " nouvelle feuille".

Je butte sur l'os suivant:
Comment atteindre la première cellule vide dans la colonne A pour recoller d'autres fichiers ? Comment atteindre Chaque fois, la première cellule vide après avoir coller le dernier fichier.

Pour l'instant, je le fais mais avec des cellules référencées en colonne A (R1C1 et R55C1)
je souhaiterais le faire quelque soit la ligne où je suis dans la cellule A
C'est à dire pour i allant de 1 à 1000, R(i)C1

Tout ce que j'ai pu faire cest ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub magfou()
'
' magfou Macro
'
 
'
     Workbooks.Open Filename:="C:\Users\GOTO1.xlsx"
    Range("A12").Select
    Selection.CurrentRegion.Select
    Selection.Copy
    Windows("Classeur1").Activate
    Application.Goto Reference:="R1C1"
    ActiveSheet.Paste
    Selection.SpecialCells(xlCellTypeLastCell).Select
    Application.Goto Reference:="R55C1"
    Selection.Insert Shift:=xlDown
    Selection.EntireRow.Insert
    Windows("GOTO1.xlsx").Activate
    ActiveWindow.SmallScroll Down:=-3
    Selection.CurrentRegion.Select
    Selection.Copy
    Windows("Classeur1").Activate
    ActiveSheet.Paste
End Sub
Je continuerai à m'exercer, mais si vous pouvez me débloquer sur cet os, je serais vraiment très heureux.

Je vous remercie D'avance