Function IsIn(txt As String, ByRef TabTxt() As String) As Boolean
[COLOR="SeaGreen"]' Determine si une chaine est contenue au moins une fois dans un tableau de chaine
[/COLOR]
Dim i As Integer
IsIn = False
For i = LBound(TabTxt()) To UBound(TabTxt())
If StrComp(txt, TabTxt(i), vbTextCompare) = 0 Then
IsIn = True
Exit Function
End If
Next i
End Function