Création Formule/Macro

Bonjour, je cherche une formule ou macro qui me permet de traiter des données.

Je cherche une formule ou macro qui puisse passer sur chaque cellule et si elle trouve du texte renvoyé le texte de la cellule + la(les) suite(s) de chiffre en dessous de ce texte.

Dans le fichier joint, je cherche à obtenir une liste type “Capot201.00.01” “Capot201.00.02" "Portière100.20.12” , …

https://www.cjoint.com/c/HCAtzNYG8Y5

Merci pour vos réponses

Amicalement,

Romain

Bonsoir,

une proposition via une macro

Sub aargh()
    Set ws1 = Sheets("feuil1")
    Sheets.Add
    Set ws2 = ActiveSheet
    dc = ws1.Cells(1, Columns.Count).End(xlToLeft).Column
    For j = 1 To dc
        If ws1.Cells(1, j) <> "" Then
            dl = ws1.Cells(Rows.Count, j).End(xlUp).Row
            For i = 1 To dl
                s = ws1.Cells(i, j)
                If s <> "" Then
                    If Left(s, 1) Like "#" Then
                        k = k + 1
                        ws2.Cells(k, 1) = t & s
                    Else
                        t = s
                    End If
                End If
            Next i
        End If
    Next j
End Sub

Merci pour la réponse.

Je l'ai essayé sur mon fichier test et cela fonctionne comme je le souhaite.

Je vais l'essayer demain sur plusieurs gros fichiers.

Un grand merci

Romain