Private Sub Worksheet_Activate()
Dim DateRéf As Date, dL As Long
DateRéf = [N2].Value: dL = DateRéf - [A2].Value
If DateRéf <> Date Then
[A2].Offset(dL).Value = DateRéf
[B2:D2].Offset(dL).Value = [H6:J6].Value
DateRéf = DateRéf + 1: dL = dL + 1
[A2].Offset(dL).Value = DateRéf
[B2:D2].Offset(dL).FormulaR1C1 = "=R6C[6]"
[N2].Value = DateRéf
ElseIf [N2].HasFormula Then
[N2].Value = DateRéf: End If
End Sub