Recherche et affectation d'une valeur dans un tableau

Option Explicit
Sub Code()

Dim Trouve As Range, DL As Long, DL2 As Long, Valeur_Cherchee As String, PlageDeRecherche As Range, Ligne As Long, i As Integer, j As Integer
Dim Produit_1 As String, Produit_2 As String, Produit_3 As String, Produit_4 As String, Produit_5 As String, Produit_6 As String, OCCURENCE As Boolean

DL = Sheets("Qtité Famille").Cells(Application.Rows.Count, 24).End(xlUp).Row
DL2 = Sheets("Qtité Famille").Cells(Application.Rows.Count, 1).End(xlUp).Row

For i = 6 To DL

For j = 6 To DL2

If Range("X" & i).Value = Range("A" & j).Value Then

    OCCURENCE = True
    
    If Str(Sheets("Qtité Famille").Range("E" & j).Value) = "Vrai" Then
        Produit_1 = "plat1 "
    Else
        Produit_1 = ""
    End If
    
    If Str(Sheets("Qtité Famille").Range("F" & j).Value) = "Vrai" Then
        Produit_2 = "plat2 "
    Else
        Produit_2 = ""
    End If
    
    If Str(Sheets("Qtité Famille").Range("G" & j).Value) = "Vrai" Then
        Produit_3 = "plat3 "
    Else
        Produit_3 = ""
    End If
    
    If Str(Sheets("Qtité Famille").Range("H" & j).Value) = "Vrai" Then
        Produit_4 = "plat4 "
    Else
        Produit_4 = ""
    End If
    
    If Str(Sheets("Qtité Famille").Range("I" & j).Value) = "Vrai" Then
        Produit_5 = "plat5 "
    Else
        Produit_5 = ""
    End If
    
    If Str(Sheets("Qtité Famille").Range("J" & j).Value) = "Vrai" Then
        Produit_6 = "plat6 "
    Else
        Produit_6 = ""
    End If
    
    Range("AE" & i) = Produit_1 & Produit_2 & Produit_3 & Produit_4 & Produit_5 & Produit_6
        
End If

Next j

If OCCURENCE = False Then Range("AE" & i) = "AUCUNE CORRESPONDANCE"

OCCURENCE = False

Next i
    

End Sub

For i = 1 To UBound(tablo, 1)
        If tablo(i, 1) <> "" Then
            ReDim Preserve tabloR(7, k + 1)
            tabloR(0, k) = Range("A" & i + 5)
            For j = 1 To 8
                tabloR(j, k) = tablo(i, j)
            Next j
            k = k + 1
        End If
    Next i
    Range("X6:AD" & derln).ClearContents
    Range("X6").Resize(UBound(tabloR, 2), 7) = Application.Transpose(tabloR)