XL 2019 Formule pour isoler des nombres

Sub Extraire()
Dim P As Range, col%
Application.ScreenUpdating = False
With ActiveSheet.UsedRange.Columns(1).Offset(1)
    Set P = .Offset(, 1).Resize(, Columns.Count - .Column)
    P.ClearContents
    .TextToColumns .Offset(, 1), xlDelimited, Comma:=True 'commande Convertir
    On Error Resume Next 'si aucune SpecialCell
    For col = Intersect(P, ActiveSheet.UsedRange).Columns.Count To 1 Step -1
        P.Columns(col).SpecialCells(xlCellTypeConstants, 2).ClearContents
        P.Columns(col).SpecialCells(xlCellTypeBlanks).Delete xlToLeft
    Next
End With
End Sub

let
A = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
B = (v)=>
    [
    x = List.Select(List.Transform(Text.Split(Text.From(v{0}),","), Text.Trim), each List.ContainsAny({"1".."9"}, Text.ToList(_))),
    y = Table.FromRows({x}, List.Transform({1..List.Count(x)}, each "Number." & Text.From(_)))
    ][y],
C = Table.Combine(Table.ToList(A, B))
in C

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"Data", type text}}),
    #"Personnalisée ajoutée" = Table.AddColumn(#"Type modifié", "Test", each Text.Remove([Data], {"0".."9"})),
    Personnalisé1 = Table.AddColumn(#"Personnalisée ajoutée", "Col", each List.RemoveNulls(List.Transform(Text.SplitAny([Data], [Test]), Number.From))),
    #"Valeurs extraites" = Table.TransformColumns(Personnalisé1, {"Col", each Text.Combine(List.Transform(_, Text.From), "|"), type text}),
    Personnalisé2 = Table.SplitColumn(#"Valeurs extraites", "Col", Splitter.SplitTextByDelimiter("|", QuoteStyle.Csv), List.Transform({1..List.Max(Table.AddColumn(#"Valeurs extraites", "Temp", each List.Count(Text.Split([Col],"|")))[Temp])},each "Col." & Number.ToText(_))),
    #"Colonnes supprimées" = Table.RemoveColumns(Personnalisé2,{"Test"})
in
    #"Colonnes supprimées"

=INDEX(Nbre;PETITE.VALEUR(N;COLONNE()-1))

Sub Test()
Dim t
t = Timer
[A2:G11].Copy [A2:G50001]
MsgBox Timer - t
End Sub

Sub Test2()
Dim t
t = Timer
Calculate
MsgBox Timer - t
End Sub