Fixer une date complete avec le chiffre du jour

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Column = 1 And Target.Row > 3 And Target <> "" Then
        Application.EnableEvents = False
        Target = Target + [A1] - 1
        Target.NumberFormat = "dd/mm/yyyy"
        Application.EnableEvents = True
    End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim nombre
    Dim datedepart
    
    Application.EnableEvents = False
    nombre = Target.Value
    datedepart = Range("A1").Value - 1

    Target.Value = DateAdd("d", nombre, datedepart)
    Application.EnableEvents = True

End Sub