Extraire Données de plusieurs Tableau à longueur variable

Bonjour,

Encore novice dans le VBA, j'essaie d'extraire les noms, prénoms, dates de naissance et adresse mail des adhérents, mais je bloque complètement.

Pour faire simple, je dispose de plusieurs fichiers contenant les données qu'il me faut, ils sont tous de longueur différentes vu que les clubs ont un nombre de membre différent. Je souhaite tout rassembler dans un seul tableau à but de publipostage sans avoir à tout faire à la main, il y a un paquet de monde.

Egalement, je souhaite ajouter une colonne nom du club, qui se trouve être le nom du fichier ainsi qu'une colonne âge qui calcule d'après la colonne date de naissance.

Pour la récupération simple j'en suis rendu ici

Sub RecupFC()
Dim t()
tref = Array("I:I", "J:J", "K:K", "L:L", "V:V")
spath$ = "T:\2021 XXXX\Licenciés\"
sfilename$ = Dir(spath & "*.xlsx")
Do While sfilename <> ""
With Workbooks.Open(spath & sfilename)
n = n + 1: ReDim Preserve t(1 To 5, 1 To n)
For i = LBound(tref) To UBound(tref)
t(i + 1, n) = .Sheets(1).Range(tref(i)).Value
Next i
.Close True
End With
sfilename = Dir
Loop
If n > 0 Then ThisWorkbook.Sheets(1).Cells(1, 1).Resize(n, 5) = Application.Transpose(t)
End Sub

Je sais qu'il y a une erreur au niveau de Preserve t(1 to 5.. mais ne sais pas la résoudre, et on me renvoie une erreur 13 en fin de boucle.

Votre aide sera la bienvenue, je suis autodidacte et j'avoue m'arracher les cheveux dessus.

Merci beaucoup et je vous souhaite une très bonne journée.

Bonjour

Tu as 2016 : le plus simple est d'utiliser PowerQuery intégré à Excel

Si les tableaux ont tous le même nombre de colonnes avec les mêmes titres, cela se fait en quelques clics après avoir stocké les fichiers à traiter dans un même dossier