Function DeuxMots2(Atester As String, Mot1 As String, Mot2 As String) As Boolean
Dim Flag1 As Boolean, Flag2 As Boolean, Tablo
Tablo = Split(UCase(Atester))
Flag1 = False
Flag2 = False
On Error Resume Next
Flag1 = Application.Match(UCase(Mot1), Tablo, 0)
Flag2 = Application.Match(UCase(Mot2), Tablo, 0)
On Error GoTo 0
DeuxMots2 = Flag1 * Flag2
End Function