Souci avec la fonction Filter

Bonjour,

J'ai un soucis avec la fonction filter qui ne veut pass'executer, voici comment je l'ai écrite:

TestStrings(1) = zonut2
Test(1) = Filter(TestStrings, Left(info00(i00i, 1).Value, 2), True, CompareMethod.Text)

If Len(Test(0)) > 0 Then


formatées.Cells(rwsaisie, nbcle + 6).Value = Left(saisie.Cells(rwsaisie, isais).Value & Blanc, 20)
Else
formatées.Cells(rwsaisie, nbcle + 6).NumberFormat = "@"
formatées.Cells(rwsaisie, nbcle + 6).Value = zonut2
End If