Excel - Comment filter une colonne avec plusieurs termes ?

Sub masquerlignes()
Dim mot As String
Dim filtre As String
Dim Ligne As Long
Dim Ligne2 As Long
'derniere ligne remplie de la colonne H (liste des mots du filtre)' à adapter
Ligne = Columns(8).Find("*", , , , xlByColumns, xlPrevious).Row
'derniere ligne remplie de la colonne D (liste complète à filtrer)' a adapter
Ligne2 = Columns(4).Find("*", , , , xlByColumns, xlPrevious).Row
For n = 1 To Ligne2
garder = 0
For t = 1 To Ligne
mot = Range("D" & n).Value
filtre = Range("H" & t).Value
If InStr(1, mot, filtre) > 0 Then garder = 1
Next
If garder = 0 Then
Rows(n & ":" & n).Select
    Selection.EntireRow.Hidden = True
    End If
  
    Next
End Sub