' on test si on est entre 0 h 00 et 0 h 01
If Format(Now, "nn") >= 0 And Format(Now, "nn") <= 1 Then
' Suppression du chiffre 3 dans la date du jour
Dim objWks As Worksheet
Dim strMois As String
Dim dteDate As Date
Dim lngRow As Long
' on récupère la feuille ou on va agir
Set objWks = ThisWorkbook.Worksheets(Format(Date, "mmmm") & " " & Format(Date, "yyyy"))
' on récupère la date
dteDate = Date
' on cherche la ligne où se trouve la date souhaitée
lngRow = objWks.Columns(1).Find(dteDate).Row
' on modifie la valeur
objWks.Range("B" & lngRow).Value = "0"
End If