Private Sub Worksheet_SelectionChange(ByVal R As Range)
Dim C As Range
If R.Address = [T6].Address Then
[T6:T20000].AutoFilter 1, "<>"
For Each C In [T6:T20].SpecialCells(12)
If C < Now Then
Application.Speech.Speak "Bonjour le Forum, je vous souhaite une belle journée"
C.Activate
Exit For
End If
Next
[T6:T20000].AutoFilter
End If
End Sub