Sélectionner des cellules selon une valeur et supprimer les lignes

Bonjour à tous,

J'ai une macro dans le tableau ci-joint qui me permet de copier des données d'une feuille à l'autre.
Je souhaiterai dans la feuille copiée uniquement qui se nomme RESAPATH, supprimer toutes les lignes qui comportent le mot DELETE dans la colonne G.
Et je souhaiterai ajouter cette macro à la première qui copie mes données.

Sub Copie()

'
' Macro5 Macro
'

'
Sheets("Finalisation").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RESAPATH").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Est-ce possible ?
Merci d'avance pour votre aide et bonne journée.

Bonjour et bienvenue sur le forum

Et je souhaiterai ajouter cette macro à la première qui copie mes données.

Modifie ainsi ta macro ''Sub Copie()''

Sub Copie()

    Sheets("Finalisation").Cells.Copy
    Sheets("RESAPATH").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Call MonMacroDelete
End Sub

Bye !