Chercher une feuille dans un classeur avec la date du jour

Option Explicit

    Sub Place_Colorie()
    Dim Mois
    Dim x
    Dim y As Byte
    Dim Z
    Mois = MonthName(Month(Now))
    Sheets(Mois).Activate
1  Z = Application.InputBox("Code Barre")
    x = Right(Z, 8)
    y = InStr(16, Z, "S")
    If x = "" Then ActiveWorkbook.Save
    If x = "" Then Exit Sub
    With Sheets(Mois)
    If y = 16 Then
        .Cells(Range("B4:B500").Find(x).Row, CDbl(Format(Date, "dd")) * 2 + 2).Value = "D"
    Else
        .Cells(Range("B4:B500").Find(x).Row, CDbl(Format(Date, "dd")) * 2 + 1).Value = "A"
    End If
    End With
    GoTo 1
    End Sub