Simplification code

Bonjour,

J'utilise un petit code qui me permet d'écrire automatiquement la date dans une cellule spécifique lorsque l'on clique sur celle-ci.
Le souci c'est que j'ai plus d'une vingtaine de cellule "date" pour lesquelles mon code s'applique, je répète donc celui-ci vingt fois. C'est efficace, mais ce n'est pas très esthétique ni pratique dans mon VBA... Je cherche donc à simplifier mon code si possible.

Merci d'avance pour votre aide :)

Voici un extrait du code en question :

Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

    If Not Intersect(Target, Range("F8")) Is Nothing Then
        If Range("F8") <> "" Then
            If MsgBox("Voulez-vous changer la date ?", vbQuestion + vbYesNo, "Confirmation") = vbYes Then
            Range("F8").Value = Date
            Else: Exit Sub
            End If
        Else: Range("F8").Value = Date
        End If
    End If
    
    '___________________
    
    If Not Intersect(Target, Range("F25")) Is Nothing Then
        If Range("F25") <> "" Then
            If MsgBox("Voulez-vous changer la date ?", vbQuestion + vbYesNo, "Confirmation") = vbYes Then
            Range("F25").Value = Date
            Else: Exit Sub
            End If
        Else: Range("F25").Value = Date
        End If
    End If
    
    '___________________
    
    If Not Intersect(Target, Range("F42")) Is Nothing Then
        If Range("F42") <> "" Then
            If MsgBox("Voulez-vous changer la date ?", vbQuestion + vbYesNo, "Confirmation") = vbYes Then
            Range("F42").Value = Date
            Else: Exit Sub
            End If
        Else: Range("F42").Value = Date
        End If
    End If
    
    '___________________

End Sub