Sub test2()
Dim ListeMots, i as string
ListeMots = Array("Maison", "Arbre", "Pizza", "Fleur", "Soleil") 'La liste des mots ici
i = InputBox("Entrez un mot")
If IsError(Application.Match(i, ListeMots, 0)) Then
MsgBox i & " n'est pas dans la liste"
Else
MsgBox i & " est bien dans la liste !!!!!!!!!"
End If
End Sub