Microsoft 365 allert à la date du jour

Sub GoToday()
Dim Rw
    [Tableau5].ListObject.Range.AutoFilter Field:=1
    [Tableau5].ListObject.Range.AutoFilter Field:=1, _
        Criteria1:=">=" & Format(Date, "mm/dd/yyyy")
    On Error Resume Next
    Rw = [Tableau5].SpecialCells(xlCellTypeVisible).Row
    [Tableau5].ListObject.Range.AutoFilter Field:=1
    If Err = 0 Then ActiveWindow.ScrollRow = Rw Else MsgBox "Date non trouvée"
End Sub

Sub Goto_Date()
Dim LaDate
LaDate = Application.Match(CLng(Date), Range("Tableau5[Date]"), 0)
If Not IsError(LaDate) Then Application.Goto Range("Tableau5[Date]").ListObject.DataBodyRange(LaDate, 1), True
End Sub

Sub SelectJour()
Cells(Application.Match(CLng(Date), Columns(1)), 1).Select
End Sub