Microsoft 365 Date masquée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
' Si plus d'une cellule sélectionnée ou que target n'est pas dans la plage G7:G19
    If Target.CountLarge > 1 Or Intersect(Target, Range("G7:G19")) Is Nothing Then Exit Sub
    '
    ' Si la valeur de la cellule peut-être interprétée comme une date et que son numéro de série
    ' correspond à celui du 1/1/1970 alors on traite.
    If IsDate(Target.Value) And Target.Value2 = DateSerial(1970, 1, 1) Then
        '
        ' Si masquée on montre, sinon on masque
        If Target.Font.ThemeColor = xlThemeColorDark1 Then
            Target.Font.ThemeColor = xlThemeColorLight1
        Else
            Target.Font.ThemeColor = xlThemeColorDark1
        End If
    End If
End Sub