formule doublon ou plus

Function Liste(tablo)
Dim ub1&, ub2%, d As Object, i&, j%, a, b
tablo = tablo 'matrice (plus rapide)
ub1 = UBound(tablo)
ub2 = UBound(tablo, 2)
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To ub1
  For j = 1 To ub2
    If i = 1 Then
      d(tablo(1, j)) = 1
    Else
      If d.exists(tablo(i, j)) Then _
        d(tablo(i, j)) = d(tablo(i, j)) + 1
    End If
  Next
Next
a = d.items: b = d.keys
For i = LBound(a) To UBound(a)
  If a(i) < ub1 Then d.Remove b(i)
Next
Liste = d.keys 'matrice à une dimension
End Function

=SI(LIGNE()>NBVAL(Liste(T));"";INDEX(Liste(T);LIGNE()))

Function Liste(tablo)
Dim ub1&, ub2%, d As Object, i&, j%, a, b
tablo = tablo 'matrice (plus rapide)
ub1 = UBound(tablo)
ub2 = UBound(tablo, 2)
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To ub1
  For j = 1 To ub2
    If d(tablo(i, j)) = i - 1 Then d(tablo(i, j)) = i
  Next
Next
a = d.items: b = d.keys
For i = LBound(a) To UBound(a)
  If a(i) < ub1 Then d.Remove b(i)
Next
Liste = d.keys 'matrice à une dimension
End Function

=SI(LIGNES($2:2)>SOMME(N(NB.SI(A$2:F$3;A$1:F$1)=2));"";MIN(SI((NB.SI(A$2:F$3;A$1:F$1)=2)*(NB.SI(I$1:I1;A$1:F$1)=0);A$1:F$1)))