Microsoft 365 Nombre de caractères différents et suppression Doublons ?

=SI(ESTERREUR(GAUCHE(TEXTE.APRES(SUBSTITUE(SUBSTITUE([@[Désignation 1]];" g";"");" mL";"");" ";-1);1)*1);"";"*")

Sub Suppression_doublons()
Dim d As Object, i&, x$, j%
Set d = CreateObject("Scripting.Dictionary")
Columns(1).Sort Columns(1), xlAscending, Header:=xlYes 'tri
d.CompareMode = vbTextCompare 'la casse es ignoré
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    x = Application.Trim(Cells(i, 1))
    For j = 1 To Len(x)
        If IsNumeric(Mid(x, j, 1)) Then x = Trim(Left(x, j - 1)): Exit For
    Next j
    d(x) = ""
Next i
'---restitution---
With [B2] '1ère cellule de destination
    i = d.Count
    If i Then .Resize(i) = Application.Transpose(d.keys) 'Transpose est limitée à 65536 lignes
    .Offset(i).Resize(Rows.Count - i - .Row + 1).ClearContents 'RAZ en dessous
End With
End Sub