Bonjour,
Si VBA vous est permis, avec la fonction ci-dessous à placer dans un module standard.
Attention vos infos colonne A ont des caractères blancs à la fin qu'il faut supprimer dans ma solution.
Option Explicit
Function Filtrer(ByVal ValeurCherchee As String, ByVal AireRecherche As Range) As Boolean
Dim I As Integer, J As Integer
Dim TabChaine As Variant
Filtrer = True
For I = 1 To AireRecherche.Count
TabChaine = Split(ValeurCherchee, " ")
For J = LBound(TabChaine) To UBound(TabChaine)
If InStr(1, LCase(TabChaine(J)), LCase(AireRecherche(I)), vbTextCompare) > 0 Then
Filtrer = False
Exit Function
End If
Next J
Next I
End Function