Private Sub Worksheet_Calculate()
Dim i As Variant
Application.EnableEvents = False
With Feuil2 'CodeName de la feuille Archives
i = Application.Match(CLng(Date), .[A:A], 0)
If IsNumeric(i) Then .Cells(i, 2) = [Moyenne]: .Cells(i, 3) = [Mediane]
End With
Application.EnableEvents = True
End Sub