Extraction données situés dans plusieurs tables

Mesdames, Messieurs,

Tout d'abord merci à ceux qui liront ce message.
La problématique est la suivante : J'aurais besoin d'extraire dans une autre feuille Excel toutes mes colonnes B d'un même fichier situés dans plusieurs tables

Comme vous le voyez, je cherche ainsi à récupérer toutes mes références (toujours colonne B) situées dans plusieurs tables (41, 42, 43, etc...) pour les réafficher dans une autre feuille Excel.

Merci de votre aide

Je me réponds à moi même (peut être cela peut en aider d'autres) mais si certains ont une piste comme la mienne, j'en serais ravi.
Pour l'instant, en utilisant les macros, j'arrive à récupérer les valeurs d'une seule tables, manque plus qu'à trouver une façon d'implémenter les autres.
En espérant être clair, n'hésitez

pas à demander des infos

Bonjour,

Ici on travaille sur des classeurs et (pour les macros sur du texte. Les images ne servent pas à grand chose.

Si je te donne une page d'image de macro tu vas trouver ça agréable ?

A+

Merci Galopin de ton intérêt.

Alors je suis novice sur Excel, donc j'ai pas tous les codes.
Comment faire pour obtenir des classeurs ?

Concernant ta remarque suivante " Si je te donne une page d'image de macro tu vas trouver ça agréable ?"
Je n'ai malheureusement pas d'autre choix, je dois extraire des milliers de références contenus dans des fichiers pdf, que je transforme en excel, et qui comportent notamment des schémas. Donc oui c'est pas agréable, mais je ne peux malheureusement passer outre.

A +

Pour être plus précis j'ai joint mon fichier à ce message.
J'ai des données sur plusieurs tables, en l'occurrence, la numéro 5 et 6 ici. Je souhaite copier coller les références situées colonne B, tables 5 et 6 sur la feuil3, et que ces dernières s'ajoute à la suite (sans écraser les anciennes)

Cette macro à placer dans le classeur cible te fera ça "aux petits oignons"

Sub Galopin()
Dim WsC As Worksheet, WsS As Worksheet, WBk As Workbook, i&, S$, Dico, Arr
Set WsC = ThisWorkbook.Worksheets("Feuil1")
Set WBk = Workbooks("test-mr.xlsx")
    Set Dico = CreateObject("Scripting.Dictionary")
For Each WsS In WBk.Worksheets
    On Error Resume Next
    If Left(WsS.Name, 5) = "Table" Then
        i = 2
        Do
            S$ = WsS.Cells(i, 2).Value
            If Not Dico.Exists(S) Then
                Dico.Add S, ""
                i = i + 1
            End If
        Loop While WsS.Cells(i, 2) <> ""
    End If
Next
Arr = Dico.keys
WsC.Range("A1").Resize(Dico.Count) = Application.Transpose(Dico.keys)
End Sub

Nota : Remplacer le nom du classeur source... !

A+

Alors là Galopin, je te remercie vivement.
Grâce à toi, je vais pouvoir récupérer mes références.
pour infos j'en ai un peu moins de 100 000 à traiter et grâce à toi je vais pouvoir m'y atteler sereinement. Merci beaucoup

Le code fourni ne s'occupe pas des doublons.

La macro change de feuille dès qu'elle rencontre une cellule vide.

A+