Bonjour,
En transformant votre tableau en .xlsm, au choix :
Option Explicit
Sub Mod1_FigerLesDatesEtLesHeures()
Dim AireDate As Range, AireHeure As Range, AireTableau As Range
Dim CelluleEnCours As Range
Set CelluleEnCours = ActiveCell
Set AireTableau = Range("Tableau1")
Set AireDate = Range("Tableau1[date]")
Set AireHeure = Range("Tableau1[heure]")
If Not Intersect(ActiveCell, AireTableau) Is Nothing Then
With Range(AireDate, AireHeure)
.Copy
.PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
CelluleEnCours.Select
End If
Set AireTableau = Nothing: Set AireDate = Nothing: Set AireHeure = Nothing: Set CelluleEnCours = Nothing
End Sub
Option Explicit
Sub Mod2_AjouterUneLigne()
Dim NouvelleLigne As ListRow
Set NouvelleLigne = Sheets("BDD").ListObjects("Tableau1").ListRows.Add
With NouvelleLigne
With Range(.Range(1, 1), .Range(1, 2))
.Value = Now
.Copy
.PasteSpecial xlPasteValues
End With
.Range(1, 3).Select
End With
Set NouvelleLigne = Nothing
End Sub