Bonjour

J'essaye de déployer une macro d'un fichier Excel (commencant en cellule B4, jusqu'à colonne P avec un nombre de lignes différentes chaque semaine)
Je n'arrive pas à faire les filtres au niveau des dates :

Colonne C (2ème colonne) Filtre sur Date >= aujourdhui et Date <= aujourdhui + 13 jours
ET Colonne K (10ème colonne) Filtre sur Date = aujourdhui

Les 2 filtres doivent être lancé en meme temps

ces 2 colonnes de date sont dans le format : [$-x-sysdate]jjjj, mmmm jj, aaaa (jeudi 20 novembre 2025)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Macro1()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dateDuJour As Date
    Dim dateFin As Date
 
    ' Définir la feuille active
    Set ws = ActiveSheet
 
    ' Trouver la dernière ligne utilisée dans la colonne B
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
 
    ' Définir les dates dynamiquement
    dateDuJour = Date          ' Date du jour (ex: 20/11/2025)
    dateFin = Date + 13        ' Date du jour + 13 jours (ex: 03/12/2025)
 
    ' Appliquer le filtre
    With ws.Range("$B$4:$P" & lastRow)
        ' Filtre sur la colonne 2 : entre dateDuJour et dateDuJour + 13
        .AutoFilter Field:=2, Criteria1:=">=" & dateDuJour, Operator:=xlAnd, Criteria2:="<=" & dateFin
        ' Filtre sur la colonne 10 : égal à dateDuJour
        .AutoFilter Field:=10, Criteria1:="=" & dateDuJour
    End With
End Sub
A chaque fois que je lance la macro, il ne me mets aucune ligne alors que ce jour j'ai une 60aines de lignes.

Savez vous me dire où est le beug ?

Merci d'avance