Re : Ajout de date et filtre automatique
Re bonjour,
Autant pour moi, j'avais fait une mauvaise manip et Plg_2 ne correspondait plus a la selection de départ.
Pour trier ajoutes ceci:
Range("A1:N3").Select '(si tu n'as que 3 lignes)
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess,
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
(Apres la ligne d'ajout de la date.)
A+