Power Query Cherche une liste de mots dans une feuille et ajuter une colonne true/false si existe ou pas

Sub ChercheMot()
Dim T, i%, N%, Texte$
Application.ScreenUpdating = False
T = [LookFor[Mots cherchés]]                                                ' Transfert liste de mots dans array "T"
For i = 1 To UBound(T)                                                      ' Pour chaque mot
    Mot = "*" & LCase(T(i, 1)) & "*": Texte = ""                            ' Constuction du mot cherché ( "*Mot*" )
    For Each F In Worksheets                                                ' Pour chaque feuille
        If F.Name <> "mots" Then                                            ' Sauf la feuille "Mots"
            N = Application.CountIf(Sheets(F.Name).Range("A1:Z1000"), Mot)  ' Le mot cherché existe t-il ?
            If N <> 0 Then Texte = Texte & " - " & F.Name                   ' Si oui, on ajoute le nom de la feuille dans Texte
        End If
    Next F
    [LookFor].Item(i, 3) = Mid(Texte, 4)                                    ' Ecriture du Texte et de True/False
    If Texte <> "" Then [LookFor].Item(i, 2) = "True" Else [LookFor].Item(i, 2) = "False"
Next i
Columns.AutoFit
End Sub