Bonjour,

J'ai créé un fichier "registre visiteur" avec plusieurs feuilles de Janvier à Décembre. Dans chaque feuille j'ai un tableau avec des dates. Je voudrais que les lignes qui contiennent les dates ce supprimes tous les 30 jours.
J'ai trouvé sur un autre poste https://www.developpez.net/forums/d1.../#post11980707 un script VBA de PatrickToulon qui fonctionne mais par contre je perds toutes les dates pas seulement celle qui expires à 30j. Le filtre fonctionne bien car dans le tableau il sélectionne bien les dates à 30j passés. Ci-dessous ce que j'ai mis:

Pour info ma colonne E contient les dates

Sub test()
limit_date = DateSerial(Year(Date), Month(Date), Day(Date) - 30)
With ActiveSheet.Range("E5:E100")
.AutoFilter Field:=1, Criteria1:="<" & CLng(limit_date)
MsgBox "Supprimer les dates < 30 jours"
.AutoFilter ' on enleve le filtre
.SpecialCells(xlVisible).EntireRow.Delete
End With
End Sub

Si vous avez une solution je vous remercie infiniment.