indiquer une date fixe dans une cellule

Bonjour, j'aimerai modifier ma macro qui a pour but d'indiquer la date du jour (qui reste fixe) dans une cellule d'une colonne en cliquant dessus, je voudrai que le macro si dessous puisse faire la même chose mais sur plusieurs colonnes choisi ex: col 2, 11 20 29 38 47 ......

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
colonne = ActiveCell.Column
If colonne = 0 Then
ActiveCell.Offset(0, 1).Select
Call macro1
ElseIf colonne = 2 Then
Call macro1
End If
Application.EnableEvents = True
End Sub

Sub macro1()
ActiveCell.Value = Date 'pour la date
'ActiveCell.Value = Time 'pour l'heure
'ActiveCell.Value = Date & " " & Time 'pour la date et l'heure mais avec Now ça marche aussi bien

J'ai bon essayé mais rien y fais 😕, je souhaite qu'un connaisseur VBA vienne à mon secours

Cordialement Jerleswatt