ImputBox par rapport a une date

Sub check_date()
Dim cejour As Long
[A1] = Date: [A1].Select
cejour = Day(ActiveCell)
Select Case cejour
Case 1
MsgBox "Nous sommes le premier jour du mois de : " & MonthName(Month(Date)) & Chr(13) & "Vous devez archivez votre dossier."
Case Else
MsgBox "Nous sommes le : " & Date, vbInformation, "BIENVENUE"
End Select
End Sub

Sub check_date()
Dim cejour As Long
[A1] = Date: [A1].Select
cejour = Day(ActiveCell)
Select Case cejour
Case 1
MsgBox "Nous sommes le premier jour du mois de : " & MonthName(Month(Date)) & Chr(13) & "Vous devez archivez votre dossier."
Case Else
'MsgBox "Nous sommes le : " & Date, vbInformation, "BIENVENUE"
End Select
End Sub

Sub check_date()
Dim cejour As Long, test As Long
[COLOR=Red]' juste ici pour test
Randomize
test = InputBox("Saisir le chiffre d'un mois" & Chr(13) & " (ou laisser la valeur aléatoire par défaut) ", "TEST", Int(Rnd() * 12) + 1)
test = DateSerial(Year(Date), test, 1)
MsgBox StrConv(Format(test, "dddd dd mmmm yyyy"), 3)
[L1] = test
' fin code de test ( a supprimer après test )[/COLOR]
' [L1]=Date ' à remettre en usage
cejour = Day(Range("L1"))
Select Case cejour
Case 1
MsgBox "Nous sommes le premier jour du mois de : " & MonthName(Month(Date)) & Chr(13) & "Vous devez archivez votre Fichier Absence."
Case Else
End Select
End Sub