copier une valeur automatique apres l envoie de la touche entrée

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.Count > 1 Then Exit Sub
    If Not Target.HasFormula Then Exit Sub
   
    Application.EnableEvents = False
    Target.AutoFill Range(Target, Target.Offset(1))
    Application.EnableEvents = True
   
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
On Error Resume Next 'si aucune SpecialCell (pas de formule)
For Each c In Target(1).EntireRow.SpecialCells(xlCellTypeFormulas)
    c(2).FormulaR1C1 = c.FormulaR1C1
Next
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
Target(1).EntireRow.AutoFill Target(1).EntireRow.Resize(2), xlFillFormats 'copie les formats
On Error Resume Next 'si aucune SpecialCell (pas de formule)
For Each c In Target(1).EntireRow.SpecialCells(xlCellTypeFormulas)
    c(2).FormulaR1C1 = c.FormulaR1C1
Next
Application.EnableEvents = True
End Sub