Excel VBA lien hypertext

Bonjour

je debute sur VBA

j ai cherché mais je n arrive pas a comprendre

je cherche un moyen de

- si j ouvre un lien hyper text en A1 j aimerai que la cellule A2 passe de rouge a vert avec la date system

merci a vous je continue de cherche

Bonjour philippe3367

Peut être avec un code à mettre dans le module de la feuille concernée et si le rouge n'est pas mis en mise en forme conditionnelle:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
With Me.Range(Target.Parent.Address).Offset(0, 1)
    .Interior.Color = 5287936
    .Value = Date
End With
End Sub

Cordialement

merci beaucoup