Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not IsDate("1/" & Sh.Name) Or Target.Address <> "$D$4" Then Exit Sub
If LCase(Sh.Name) <> Format(Date, "mmmm") And Target <> "" Then MsgBox "Activez la feuille du mois en cours !", 48: Exit Sub
If Target = "" Then ActiveWindow.ScrollRow = 1: ActiveWindow.ScrollColumn = 1: Exit Sub
Dim c As Range
Set c = Range("B10:B" & Rows.Count).Find([D4], , xlValues, xlWhole)
If Not c Is Nothing Then Application.Goto c(1, 3 + Day(Date)), True 'cadrage sur le jour à remplir
End Sub