Lien hypertexte

Bonsoir le forum
La macro ci-dessous ne fonctionne plus sous Excel 2007 :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'If Range(Target.Address).Style = "cliqué" Then _
Range(Target.Address).Style = "non cliqué": Cancel = True
With Target
If .Interior.Color = 49140231 Then
.Interior.Pattern = xlNone
Cancel = True
End If
End With
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Target.Range.Style = "cliqué"
With Target.Range.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49140231
End With
End Sub

Fonctionnement :
Dans une cellule je crée un lien hypertexte vars un fichier MP3, en cliquant dessus le fichier s'exécute et la cellule se colore en bleu.
Si je lance une musique à tort, je peux retirer le bleu en passant la souris sur la cellule en question mais dans une zone ou la petite main n'apparait pas, et je fais un double clic.

C'est cette dernière partie qui ne fonctionne plus ...

Si je ne suis pas très clair je peux envoyer une pièce jointe, mais il faut que j'allège considérablement mon fichier.

Merci d'avance et bon dimanche