copier coller un peu special

Bonjour le forum
j'expose mon soucis :
je dispose d un fichier xls avec plusieurs onglets
un onglet Analyse
et 3 onglets (site1,site2,site3), stucturer sous la meme forme et les memes champs
le tout est de copier lors de la modification d'un champ dans une colonne la ligne vers l'onglet Analyse, ca ca fonctionne bien !!
avec le code suivant, la valeur a chercher est "libre"

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cel As Range 'déclare la variable cel
Dim dest As Range 'déclare la variable dest

'boucle sur les cellules pouvant contenir la valeur libre
For Each cel In Range("E2:E65536")

'condition : si la valeur de la cellule contient la valeur libre
If cel.Value = "libre" Then
Set dest = Sheets("Analyse").Range("B65536").End(xlUp).Offset(1, 0) 'définit la variable dest
cel.EntireRow.Resize(, 255).Copy Destination:=dest 'copy la ligne de la cellule
End If 'fin de la condition

Next cel 'prochaine cellule de "ta_plage"
End Sub

Mon soucis est : comment supprimer une ligne precedement copier qui ne rempli plus la condition "libre" dans l'onglet de reference

@++