Private Sub Workbook_Open()
Dim MaDate As Date
retour:
On Error GoTo fin
MaDate = InputBox('Entrer la date à laquelle les analyses ont été réalisées (jj/mm/aaaa)'Â'Â')
Range('C1'Â'Â') = MaDate
Exit Sub
fin:
MsgBox 'Entrez une date valide'
GoTo retour
End Sub