Besoin aide macro excel

Sub Copie_Ligne_Infos()
    Dim derlig As Long, NBY As Long, lig As Long, n As Long, PCV As Long
    
    On Error GoTo fin
    Application.ScreenUpdating = False      'fige ecran
    With Worksheets("Delivrables")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row     'derniere cellule non vide colonne A
        NBY = Application.CountIf(.Range("E2:E" & derlig), "Y")     'nombre de "Y" colonne E
        If NBY > 0 Then
            lig = 2     'ligne de depart
            PCV = Worksheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1    'premiere cellule vide
            If PCV < 35 Then PCV = 35       'pour la premiere fois
            'boucle de balayage colonne E
            For n = 1 To NBY
                lig = .Columns(5).Find("Y", .Cells(lig, 5), , xlWhole).Row      'trouve ligne pour "Y"
                .Rows(lig).Copy Worksheets("feuil1").Range("A" & PCV)       'copy ligne
                PCV = PCV + 1       'incremente compteur ligne feuil1
            Next n
        End If
    End With
fin:
    Application.ScreenUpdating = True       'defige ecran
End Sub

Sub Copie_Range_Find()
    Dim derlig As Long, lig As Long, Critical_Path As Range
    
    derlig = Worksheets("Delivrables").Range("A" & Rows.Count).End(xlUp).Row     'derniere cellule non vide colonne A
    PCV = Worksheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1    'premiere cellule vide
    If PCV < 35 Then PCV = 35       'pour la premiere fois
    With Worksheets("Delivrables").Range("E1:E" & derlig)
        Set Critical_Path = .Find("a", MatchCase:=False, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = Critical_Path.Address
            Do
                lig = c.Row
                Worksheets("Delivrables").Rows(lig).Copy Worksheets("feuil1").Range("A" & PCV)       'copy ligne
                PCV = PCV + 1       'incremente compteur ligne feuil1
                Set c = .FindNext(c)
            Loop While Not Critical_Path Is Nothing And Critical_Path.Address <> firstAddress
        End If
    End With
End Sub