Ajouter date du jour à une macro d'insertion

Bonjour à toutes et à tous

J'ai une macro pour inserer une ligne mais j'aimerai que lorsque j'insert la ligne (elle s'insert toujours en ligne 8) la date du jour s'ajoute automatiquement dans la cellule D8 (et ensuite reste figée)

Sub Bouton1_Cliquer()
Dim CurrentSheet As Object
For Each CurrentSheet In ActiveWindow.SelectedSheets
CurrentSheet.Range("B8:V8").EntireRow.Insert
Next CurrentSheet
End Sub

Merci de votre future aide