Function EstContenu modification

Bonjour

J'essai de modifier la fonction ci dessous, de ngogoisidore, sans réussite

elle confond 5 et 15 , 4 et 14 etc...

Comment placer une condition supplémentaire, pour résoudre ce problème

sinon elle fonctionne correctement

merci

https://www.excel-downloads.com/threads/recherche-une-valeure-desordonnee-dans-une-cellule.113004/

Function EstContenu(sContenu As String, sContenant As String) As Boolean


* * Const sSep As String = "-"

* * Dim sPartie As String
* * Dim iPartie As Integer
* * Dim iPartie0 As Integer

* * EstContenu = True

* * If sContenu = "" Then Exit Function

* * iPartie = 0

* * While iPartie <= Len(sContenu)
* * * * iPartie0 = iPartie + 1

* * * * iPartie = InStr(iPartie0, sContenu, sSep)
* * * *
* * * * If iPartie = 0 Then iPartie = Len(sContenu) + 1

* * * * sPartie = Mid(sContenu, iPartie0, iPartie - iPartie0)
* * * *
* * * * If InStr(sContenant, sPartie) = 0 Then
* * * * * * iPartie = Len(sContenu) + 1
* * * * * * EstContenu = False
* * * * End If
* * Wend
End Function '~EstContenu