Annule ligne si pas enregistrée

[timtof2011]

bonsoir tout le monde,

une petite demande...enfin tout dépend...

En vba lorsque j'encode des données à partir d'un usf et textbox que je transfère le tout en ligne sur feuil1...j'aimerai que cette ligne ce supprime si je quitte sans enregistrer.

J'ai trouvé ceci

Code :

1
2
3
Sub SuprimLigne()
 ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).EntireRow.Delete Shift:=xlUp
End Sub

qui n'est pas de moi, qui supprime bien au lancement de la macro la dernière ligne encodée de la liste.

mais j'aimerai, si je quitte sans sauvegarder le fichier par le vba qu'il me supprime la dernière ligne complète...

Voilà, merci pour votre aide.

tim