Sub FlitreDate()
Application.ScreenUpdating = False
ActiveSheet.Range("$A$9:$I$65000").AutoFilter Field:=7
If [G2] <> Empty Then
ActiveSheet.Range("$A$9:$I$65000").AutoFilter Field:=7, Criteria1:="=" & [G2], Operator:=xlAnd
xNbFiltre = Application.Subtotal(3, Columns("G")) - 3
If xNbFiltre = 0 Then
ActiveSheet.Range("$A$9:$I$65000").AutoFilter Field:=7
MsgBox "Aucune donnée pour cette date", vbCritical, "FILTRE"
End If
End If
Application.ScreenUpdating = True
End Sub