Bonjour,
Mets tes données en tableau
N'oublie pas de mettre un accent à Août
Tu n'as pas précisé l'année ...
Une proposition ...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E2")) Is Nothing Then Exit Sub
If Range("B6").Value = "" Then
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Else
Range("Tableau1[#All]").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B5").CurrentRegion, Unique:=False
End If
End Sub