Mettre boucle for dans condition if VBA

Sub Completor()

  Dim Wbk As Workbook
  Dim cell As Range
  Dim plage As Range
  Dim line_insertion As Integer
  Dim tab_bd
  Dim msg As String
  Dim msg2 As String
  Dim pFind As Boolean
  
  
'Definition of "plage": plage is the group that contain all the elements of the column "Name"
  Set Wbk = Workbooks("Test nutrition.xls")
  Set plage = Wbk.Worksheets("Structure").Range("F3:" & Range("F3").End(xlDown).Address)
  
'We activate the worksheet where we work
  Wbk.Worksheets("Structure").Activate
    
  'Now we looking for the case where only "CatName" and "Name" corresponding
  For j = 3 To Cells(3, 6).End(xlDown).Row
    line_insertion = 0
    pFind = False
    If Cells(j, 36) = 0 Then
      ReDim tab_bd(0)
      For Each cell In plage
        If j <> cell.Row And cell.Offset(0, 30) <> 0 Then
          If (Cells(j, 6).Value = cell.Value) And (Cells(j, 5).Value = cell.Offset(0, -1).Value) Then
            ReDim Preserve tab_bd(line_insertion)
            tab_bd(line_insertion) = cell.Row
            line_insertion = line_insertion + 1
          Else
            Cells(j, 30).Value = "No equivalent record was found"
          End If
        End If
      Next cell


      If UBound(tab_bd) = 0 And line_insertion = 1 Then
        Range(Cells(j, 30), Cells(j, 38)).Value = Range(Cells(tab_bd(0), 6).Offset(0, 24), Cells(tab_bd(0), 6).Offset(0, 32)).Value
      ElseIf UBound(tab_bd) > 0 Then
        For c = 0 To UBound(tab_bd)
          If Not ((Cells(tab_bd(c), 30).Value = Cells(tab_bd(0), 30).Value) And _
            (Cells(tab_bd(c), 31).Value = Cells(tab_bd(0), 31).Value) And _
            (Cells(tab_bd(c), 32).Value = Cells(tab_bd(0), 32).Value) And _
            (Cells(tab_bd(c), 33).Value = Cells(tab_bd(0), 33).Value) And _
            (Cells(tab_bd(c), 34).Value = Cells(tab_bd(0), 34).Value) And _
            (Cells(tab_bd(c), 35).Value = Cells(tab_bd(0), 35).Value) And _
            (Cells(tab_bd(c), 36).Value = Cells(tab_bd(0), 36).Value) And _
            (Cells(tab_bd(c), 37).Value = Cells(tab_bd(0), 37).Value) And _
            (Cells(tab_bd(c), 38).Value = Cells(tab_bd(0), 38).Value)) Then
            'si un seul pas trouvé
            pFind = True
            Exit For
          End If
            'MsgBox (pFind)
        Next c
        'Trouve
        If Not pFind Then
          Range(Cells(j, 30), Cells(j, 38)).Value = Range(Cells(tab_bd(0), 30), Cells(tab_bd(0), 38)).Value
        Else
          'Message si pas trouve
          For y = 0 To UBound(tab_bd)
            msg2 = msg2 & tab_bd(y) & ", "
          Next y
          Cells(j, 30).Value = msg2
        End If
      End If
      msg2 = ""
    End If
  Next j
End Sub