Réappliquer filtre automatiquement à un tableau

Bonjour à tous

Voilà, j'ai un tableau basique avec tout les jours de l'année et en face ce que je dois faire. Mais sur mon tableau je voulais que seul apparaissent les jours entre aujourd'hui et dans 2 semaines. j'ai donc mis un filtre de couleur pour les valeurs comprises entre =aujourdhui et =aujourdhui()+14.

Malheureusement je dois actualiser mon filtre tous les jours (pour qu'il se réactualise), j'utilise donc la fonction Réappliquer (ctrl+alt+L)

Je voudrais savoir s'il existe un macro à mettre dans le fichier pour que cela se passe automatiquement

Merci beaucoup a tous ceux qui prendrons le temps de m'aider

PS :

Bonsoir,

ALT F11 pour ouvrir l'éditeur VBE.

Voir module dans ThisWorkbook.

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
Dim lo As ListObject
Dim d1 As String, d2 As String

    Set ws = Worksheets("Feuil1")
    d1 = ">=" & Format(Date, "mm/dd/yyyy")
    d2 = "<=" & Format(Date + 14, "mm/dd/yyyy")
    With ws
        Set lo = .ListObjects(1)
        lo.Range.AutoFilter Field:=1
        lo.Range.AutoFilter Field:=1, Criteria1:=d1, Operator:=xlAnd, Criteria2:=d2
    End With

    Set lo = Nothing
    Set ws = Nothing

End Sub

Merci beaucoup

et encore merci pour la rapidité