Bonjour,
une solution via une fonction personnalisée
exemple d'appel de la fonction
=ppf(A1:D100)
résultat de la fonction
la paire la plus fréquente est x,y
Function ppf(r As Range) As String
Dim ctr(10, 10)
Application.Volatile
For i = 1 To r.Rows.Count
For j = 1 To r.Columns.Count - 1
For k = j + 1 To r.Columns.Count
a = r(i, j)
b = r(i, k)
If a > b Then c = a: a = b: b = c
ctr(a, b) = ctr(a, b) + 1
If ctr(a, b) > m1 Then m1 = ctr(a, b): a1 = a: b1 = b
Next k
Next j
Next i
ppf = "paire la plus fréquente = " & a1 & "," & b1
End Function