Bonsoir à tous,
En colonne O, de O2 à O8001, j'ai appelé cette fonction personnalisée : =Tri_Mot1(G2) qui liste toutes les combinaisons.
Function Tri_Mot1(Mot As String) As String
Dim e
Set AL = CreateObject("System.Collections.ArrayList")
For Each e In Split(StrConv(Mot, vbUnicode), Chr(0))
If e <> "" Then AL.Add e
Next
AL.Sort
Tri_Mot1 = Join(AL.ToArray, "")
Mot = Tri_Mot1
End Function
En P2, ces 2 formules renvoient le nombre de combinaisons différentes soit 1540, le même résultat que BsAlv
=SOMMEPROD(1/NB.SI(O2:O8001;O2:O8001))
=NBVAL(UNIQUE(O2:O8001))
Place un filtre sur la colonne O pour visualiser tes doublons.
klin89