Macro suppression lignes selon critère de date

[duhaphil]

Bonjour à tous,
Je ne maitrise pas encore bien VBA, et donc voilà mon souci :
J'ai un tableau de données, et à intervalles réguliers, j'ai besoin de le "purger" de toutes les lignes supérieures à un an...
Voilà pour l'instant à quoi ressemble ma macro...
Et oui, je sais mdrrr... l'objectif est de remplacer DateTime.Now par "un an", mais pas moyen de le formuler...
Merci à tous de votre implication.
Phil


#
Sub Purge()
'Purge les D89 soldées depuis plus d'un an

Do While Range("G2").Value < DateTime.Now
Range("G2").EntireRow.Delete
Loop

End Sub
#

 

[duhaphil]

Re : Macro suppression lignes selon critère de date

Merci pour la réponse rapide, ca marche impec !

Une question : je ne risque pas d'avoir un décalage au moment des années bissextiles ?

Phil