Copier coller les lignes sous conditions avec une modifications

Bonjour tout le monde,

Sur un fichier Excel j'ai besoin de copier et coller des lignes qui contient une condition sur une cellule.
Le problème que j'ai-je veux changer sur la ligne copie le contenu d'une cellule texte par un autre texte
Ci-dessous le code que j'ai utilisé par le copiage il me reste que de change le texte de la cellule sur la ligne copie.

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

Merci d'avance pour vous.

Cdt,
OuGa