Boucle for en VBA

Sub rtrt()
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        b = True
        For j = 1 To i - 1
            If Cells(i, 1) = Cells(j, 1) Then
                b = False
                Exit For
            End If
        Next j
        If b = True Then
            'le traitement pour les individus validés
        End If
    Next i
End Sub

ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    [Feuil3!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
    TableDestination:="Feuil4!R1C1", _
    TableName:="Mon TCD"
    
ActiveSheet.PivotTables("Mon TCD").AddFields
    With ActiveSheet.PivotTables("Mon TCD").PivotFields("Date")
        .Orientation = xlPageField
        .Position = 1
        .CurrentPage = "2008"
    End With
    With ActiveSheet.PivotTables("Mon TCD").PivotFields("Nom")
        .Orientation = xlPageField
        .Position = 1
        .CurrentPage = "SOCIETE X1"
    End With

Sub Copy_TCD_NOM()
    Cells(2, 1).Select
    With ActiveSheet.PivotTables("Mon TCD").PivotFields(ActiveCell.Text)
    Non_A_Voir = .PivotItems(1)
    .PivotItems(1).Visible = True
    For i = 2 To .PivotItems.Count
    valeur = .PivotItems(i)
        .PivotItems(valeur).Visible = False
      Next
    MsgBox Non_A_Voir
    Copyzone
    End With
    With ActiveSheet.PivotTables("Mon TCD").PivotFields(ActiveCell.Text)
    For j = 2 To .PivotItems.Count
    Non_A_Voir = .PivotItems(j)
    MsgBox Non_A_Voir
    .PivotItems(1).Visible = True
    For i = 2 To .PivotItems.Count
    valeur = .PivotItems(i)
        If valeur <> Non_A_Voir Then .PivotItems(valeur).Visible = True Else .PivotItems(i).Visible = False:
      Next
    .PivotItems(1).Visible = False
    Copyzone
    Next
     End With
 End Sub
 
Sub Copyzone()
NFAct = ActiveSheet.Name
    derl = Cells.Rows.Count
    derc = Cells.Columns.Count
    Range(Cells(1, 1), Cells(derl, derc)).Copy
        Sheets.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Sheets(NFAct).Select
        Cells(2, 1).Select
  End Sub

metier = Range("Tableau[Metier]")(Range("Tableau[Nom]").Find(Nom, lookat:=xlwhole).Row-1)