XL 2016 Recherche d'une chaine de mots dans un tableau, et voir si ça matche

Sub Axsis93()
Dim Dico, i As Long, j As Long, TT, TC, Col As Integer, TTemp, TF
Dim WST As Worksheet, WSC As Worksheet
Set WST = Worksheets("Tableau")
Set WSC = Worksheets("Calculs")
Set Dico = CreateObject("Scripting.Dictionary")

TC = WSC.Range("A2:A" & WSC.Range("A" & Rows.Count).End(xlUp).Row)
ReDim TF(1 To UBound(TC, 1), 1 To 15)

For Col = 2 To 15
    Dico.RemoveAll
    TT = WST.Range(WST.Cells(2, Col), WST.Cells(WST.Cells(Cells.Rows.Count, Col).End(xlUp).Row, Col))
    For i = 1 To UBound(TT, 1)
        If TT(i, 1) <> "none" Then Dico(TT(i, 1)) = ""
    Next
    For i = 1 To UBound(TC, 1)
        TTemp = Split(TC(i, 1), " / ")
        For j = 0 To UBound(TTemp)
            If Dico.Exists(TTemp(j)) Then
                TTemp(j) = True
            Else
                TTemp(j) = False
            End If
        Next
        TF(i, Col) = IIf(TTemp(0) And TTemp(1) And TTemp(2) And TTemp(3) And TTemp(4), "Oui", "")
        Erase TTemp
    Next
Next

WSC.Range("B2").Resize(UBound(TF, 1), UBound(TF, 2)) = TF
End Sub

TF(i, Col) = IIf(TTemp(0) And TTemp(1) And TTemp(2) And TTemp(3) And TTemp(4), "Oui", "")

TF(i, Col) = IIf(TTemp(0) And TTemp(1) And TTemp(2) And TTemp(3) And TTemp(4), "Oui", "Non")