Function Nentre(t, x%)
Dim ub%, i%, y As Variant, j%, n%
t = t 'matrice, plus rapide
ub = UBound(t, 2)
For i = 1 To ub
y = t(1, i)
If IsNumeric(y) Then
If y = x Then
For j = i + 1 To ub
y = t(1, j)
If IsNumeric(y) Then
If y = x Then
If j > i + 1 Then n = n + 1: t(1, n) = j - i - 1
i = j - 1
Exit For
End If
End If
Next j
End If
End If
Next i
ub = Application.Min(Application.Caller.Count, ub)
For i = n + 1 To ub: t(1, i) = "": Next i
Nentre = t 'matrice ligne
End Function