XL 2019 Valeur maxi d'une colonne

Function MaxCol(Plage As Range)
    Dim Maxi, tablo, T, i%, j%
    Maxi = 0: tablo = Plage
    For i = 1 To UBound(tablo)
        If tablo(i, 1) <> "" Then
            T = Split(tablo(i, 1), "-")
            For j = 0 To UBound(T)
                If Val(T(j)) > Maxi Then Maxi = Val(T(j))
            Next j
        End If
    Next i
    MaxCol = Maxi
End Function

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)
Dim NT As Byte 'déclare la variable NT (Nombre des Tirets)
Dim V As Integer 'déclare la variable V (Valeur)
Dim VM As Integer 'déclare la variable VM (Valeur Maximale)

Set O = Worksheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "D").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne D de l'onglet O
TV = (O.Range(O.Cells(2, "D"), O.Cells(DL, "D"))) 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
    If TV(I, 1) <> "" Then 'condition : si la donnée ligne I colonne 1 de TV n'est pas vide
        NT = UBound(Split(TV(I, 1), "-")) 'définit le nombre de tirets NT de la donnée ligne I colonne 1 de TV
        For J = 0 To NT - 1 'boucle 2 : sur le nombre de tirest NT moins un
            V = Split(TV(I, 1), "-")(J) 'définit la valeur V (valeur avant le tiret J)
            If V > VM Then VM = V 'si V est supérieure à VM (qui vaut 0 au départ), alors VM devient V (VM sera toujours la valeurs maximale de toutes les valeurs rencontrées)
        Next J 'prochain tiret de la boucle 2
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle 1
O.Range("F2").Value = VM 'renvoie la valeur maximale VM dans la cellule F2
End Sub

=MAX(SIERREUR(FILTRE.XML("<a><b>"&SUBSTITUE(D2:D34;"-";"</b><b>")&"</b></a>";"//b");))

=EVALUER("{"&SUBSTITUE(SUBSTITUE(SUBSTITUE(JOINDRE.TEXTE("-";VRAI;Feuil1!$D$2:$D$34);"--";"-");"-";";")&"}";";}";"}"))

Function maxIncolumn(r As Range)
Dim t,maxi&,i&
t = Application.Transpose(Application.Index(r, 0, 1))
t = Split(Join(t, "-"), "-")
For i = 0 To UBound(t)
If Val(t(i)) > maxi Then maxi = Val(t(i))
Next
maxIncolumn = maxi
End Function

=MAX(SIERREUR(FILTRE.XML("<a><b>"&SUBSTITUE(JOINDRE.TEXTE("-";;D2:D34);"-";"</b><b>")&"</b></a>";"//b");))

Function maxInJoinTexteIncolumn(r As Range)
Dim tbl()
t = Application.Transpose(Application.Index(r, 0, 1))
t = "{" & Replace(Join(t, "-"), "-", ",") & "}"
tbl = Evaluate(t)
maxInJoinTexteIncolumn = Application.WorksheetFunction.Max(Array(tbl()))
End Function

Sub test3()
MsgBox maxInJoinTexteIncolumn([A1:A3])
End Sub

'le plus grand
Function maxInJoinTexteIncolumn(r As Range)
Dim tbl(), T
T = Application.Transpose(Application.index(r, 0, 1))
T = "{" & Replace(Join(T, "-"), "-", ",") & "}"
tbl = Evaluate(T)
maxInJoinTexteIncolumn = Application.WorksheetFunction.Max(Array(tbl()))
End Function

Sub test3()
MsgBox maxInJoinTexteIncolumn([A1:A3])
End Sub

'le N eme plus grand
Function maxInJoinTexteIncolumn2(r As Range, Optional index& = 1)
Dim tbl(), T
T = Application.Transpose(Application.index(r, 0, 1))
T = "{" & Replace(Join(T, "-"), "-", ",") & "}"
tbl = Evaluate(T)
maxInJoinTexteIncolumn2 = Application.WorksheetFunction.Large(tbl, index)
End Function

Sub test4()
MsgBox maxInJoinTexteIncolumn2([A1:A3], 1)' le premier'
MsgBox maxInJoinTexteIncolumn2([A1:A3], 3)' le 3 eme
End Sub