<HTML>bonjour
pour tester la date
Private Sub Workbook_Open()
Select Case Format([A1], "dd/mm/yy") 'Format(Date, "dd/mm/yy")
Case Format("14/03/02", "dd/mm/yy"), Format("25/06/02", "dd/mm/yy"), Format("30/09/02", "dd/mm/yy")
MsgBox "ok"
Case Else: MsgBox "pas ok"
End Select
End Sub
pour l'impression tu peux enregistrer une macro.
bye
stephane</HTML>