Microsoft 365 Transformer une date dynamique en fixe après transfert

Sub Enregistrement()
    Sheets("BDD").Range("B3").EntireRow.Insert
    Sheets("Formulaire").Range("B4:D4").Copy
    Sheets("BDD").Range("B3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

Sub Enregistrement()
'patricktoulon
    With Range("Tableau1").ListObject
        .ListRows.Add(1).Range.Value = Range("B4:D4").Value
    End With
End Sub

Sub Enregistrement()
Dim lr As ListRow
    '
    ' Travailler à partir du tableau structuré de la feuille BDD
    With ThisWorkbook.Sheets("BDD").ListObjects("Tableau1")
        ' Récupérer sa ligne d'insertion ou en créer une nouvelle
        If .InsertRowRange Is Nothing Then
            Set lr = .ListRows.Add()
        Else
            Set lr = .InsertRowRange()
        End If
    End With
    '
    ' Alimenter la ligne du tableau
    With ThisWorkbook.Sheets("Formulaire").Range("B4:D4")
    lr.Range.Value = .Value
       If MsgBox("Données enregistrées!" & vbCrLf & _
                    "Voulez-vous effacer les données du formulaire ?", _
                    vbQuestion + vbYesNo, "Enregistrer") = vbYes Then
        ' Si oui
        ' Vider les données à droite de la date du jour
        .Offset(, 1).Resize(, .Columns.Count - 1) = Empty
       End If
       ' Pour repartir sur une nouvelle saisie
        .Cells(2).Select
    End With
End Sub