Filtrer des dates VBA

Fermé
Signaler
-
Bonjour,

Ayant un problème sur VBA, je me permets de faire appel à vous.

Je dispose d'une feuille contenant des dates que je ramène dans une autre feuille via un RECHERCHEV classique.

Je souhaite trier mes deux feuilles par ordre chronologique. J'arrive parfaitement la première grâce à ce code :

Private Sub Worksheet_change(ByVal Target As Range)

If Intersect(Target, Range("B9:B2999")) Is Nothing Then: Exit Sub
Selection.Sort Key1:=Range("B9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'B9 est la cellule où il y a le premier nom
Range("B9").Select

End Sub

Cependant, dans la deuxième feuille, la cellule ramenant la date étant égale à une formule RECHERCHEV, mon code précédent ne marche pas.

Auriez-vous une solution ?

Bonne journée.