Nombre ou bordure qui clignote

Bonjour à tous après avoir parcouru multiples forums j'en reste toujours à mon point de départ nul nul nul je le suis.

Je cherche à faire clignoter un nombre ou les bordures d'une cellule en rouge.

Pour être le plus clair possible:

En cellule C5 j'ai 2 mise en forme conditionnelle

• 1 verte si le nombre est positif
• 1 rouge si le nombre est négatif

je cherche a faire clignoter ce nombre ou si possible les bordures de cette cellule en rouge si le nombre est négatif

Merci d'avance pour l'aide que vous m'apporterez

Cordialement.

Bonjour,

A mettre dans le module de la feuille "Feuil1" et tester pour voir si ça convient puis adapter :

Private Declare Function GetTickCount Lib "Kernel32" () As Long

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 5 Or Target.Column = 9 Then

    Do While Range("C5").Value < 0

        Range("C5").Font.ColorIndex = 3
        Range("C5").Font.Bold = True
        Minuterie 500
        Range("C5").Font.ColorIndex = 2
        Range("C5").Font.Bold = False
        Minuterie 500

    Loop

End If

End Sub

Sub Minuterie(Milliseconde As Long)

    Dim Arret As Long

    Arret = GetTickCount() + Milliseconde

    Do While GetTickCount() < Arret

        DoEvents

    Loop

End Sub

Hervé.