Erreur de compil

bonjour à tous
dans le débogage suivant j'ai un problème à la ligne Call TriSeltd)
pourquoi; merci d'avance
Public Function Suite(plage As Range, n As Byte) As String
Dim td(), ntd As Long, k As Byte, i As Long, cel As Range, ok As Boolean, s As String
ntd = plage.Cells.Count
ReDim td(1 To ntd)
ok = False
i = 0
For Each cel In plage
i = i + 1
td(i) = cel.Value
Next cel
Call TriSel(td)
'MsgBox td(1) & "-" & td(2) & "-" & td(3) & "-" & td(4) & "-" & td(5)
Select Case n
Case 2:
For k = 1 To ntd - 1
If td(k + 1) = td(k) + 1 Then
ok = True
s = td(k) & "-" & td(k + 1)
Exit For
End If
Next k
Case 3:
For k = 1 To ntd - 2
If td(k + 2) = td(k + 1) + 1 And td(k + 1) = td(k) + 1 Then
ok = True
s = td(k) & "-" & td(k + 1) & "-" & td(k + 2)
Exit For
End If
Next k
End Select
If ok Then
Suite = s
Else
Suite = "pas de suite"
End If
End Function