Transférer ligne d'une feuille à l'autre en effaçant de la 1ere feuille

Bonjour, 

je commence à douter si c'est possible, car je ne trouve aucun tuto à ce sujet.

J'aimerai transférer (qu'elle s'efface de la feuille 1 pour qu'elle n'apparaisse que sur la feuille 2) une ligne qui contient un terme défini dans une colonne défini.

J'ai essayé:

Private Sub Workbook_Open()

Dim i, LastRow

LastRow = Sheets("Dossiers en cours").Range("A" & Rows.Count).End(xlUp).Row

Sheets("Dossiers fermés").Range("A2:I500").ClearContents

For i = 2 To LastRow

If Sheets("Dossiers en cours").Cells(i, "I").Value = "Fermeture de dossier" Then

Sheets("Dossiers en cours").Cells(i, "I").EntireRow.Copy Destination:=Sheets("Dossiers fermés").Range("A" & Rows.Count).End(xlUp).Offset(1)

End If

Next i

End Sub

 mais elle ne s'efface pas de la première feuille et si je l'efface, elle s'efface des 2 feuilles.

HELPPPPPp! 

Merci beaucoup pour votre aide