Créer une macro pour raccourci filtre avancé

Bonjour,

J'ai un tableau de gestion de véhicules dans lequel j'ai une base de données avec des véhicules, dates et heures de départ, dates et heures de retour, le nom du demandeur, l'adresse.

De ces données, je veux incrémenter automatiquement un autre tableau dans lequel je veux uniquement les véhicules loués à une date précise.

J'ai donc utilisé pour cela le filtre avancé.

Seulement voilà, afin que ce filtrage avancé puisse se faire automatiquement en entrant une date et en cliquant sur un bouton, j'ai donc enregistré une macro.

Malheureusement, une fois la macro appliquée à mon bouton, ça ne fonctionne pas et le fameux message d'erreur suivant apparaît : Erreur d'éxécution '1004': La référence n'est pas valide.

Merci par avance de votre aide.

PS il s'agit de la feuille1 dans le fichier joint

Bonjour,

Private Sub CommandButton1_Click()
    With Worksheets("Feuil1")
        .Range("S2") = ActiveSheet.Range("L32").Value2
        .Range("B3:I19").AdvancedFilter xlFilterCopy, .Range("S1:S2"), .Range("J3:Q3")
    End With
End Sub

Cordialement.

Super, merci beaucoup.