D'abord, fais glisser l'userform calendrier dans ton projet, cela emmènera aussi le code
ensuite, crée un module avec ce code (je tiens compte du fait que tu n'as pas structuré en tableau) :
Sub filtrer()
On Error Resume Next
'ActiveSheet.ListObjects(1).Range.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion, Unique:=False
ActiveSheet.Range("A5").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion, Unique:=False
On Error GoTo 0
End Sub
Sub afficher()
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
End Sub
dans la feuille mets ce code
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim UnJour As Date
If Not Intersect(Target, Range("choixjour")) Is Nothing Then
Cancel = True
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
Target = Format(UnJour, "mm/dd/yyyy")
filtrer
Else
Target = ""
afficher
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("choixjour")) Is Nothing Then Exit Sub
If Range("choixjour") = "" Then afficher
End Sub
j'ai enfin aménagé ta feuille comme suit ... avec une zone appelée "choixjour"