Copier coller les lignes sous conditions avec une modifications

Sub Renouvellement_Norm()
    Dim plage As Range, cel As Range
    'stop rafraichissement ecran
    Application.ScreenUpdating = False
    'valeur a chercher
    valcherch = Sheets("Extraction1").Range("A1")
    With Worksheets("Extraction1")
        'derniere cellule colonne D
        derlig = .Range("U" & Rows.Count).End(xlUp).Row
        'defintion plage a tester en memoire
        Set plage = .Range("U5:U" & derlig)
    End With
    
    derlig = 0
    With Worksheets("Extraction1")
        'test plage
        For Each cel In plage
            If cel = valcherch Then
                'premiere cellule vide apres derniere non vide colonne D
                derlig = .Range("U" & Rows.Count).End(xlUp).Row + 1
                'premier lancement
                If derlig = 2 Then
                    derlig = 9
                End If
                'copy ligne entiere
                cel.EntireRow.Copy .Range("A" & derlig)
            End If
        Next cel
    End With
    'rafraichissement ecran
    Application.ScreenUpdating = True
End Sub