XL 2010 clignotement automatique de plusieurs cellules

[Usine à gaz]

Bonjour à toutes et à tous,

Toujours dans mon classeur (de course grâce à vous toutes et tous ), je bute sur un nouveau problème de confort et d'efficacité.

Vous le verrez dans le fichier test joint, j'ai un code qui me positionne et qui me sélectionne les cellules vides d'une ligne concernée.

Mon fichier de travail a beaucoup de colonnes et de lignes.

Je souhaite faire clignoter les cellules sélectionnées pour plus de visibilité.
Mes recherches dans le Forum et sur le net m'ont permis de trouver beaucoup de codes et d'exemples que j'ai testé.

J'ai fait mon choix sur le fichier d'excel pratique (Un grand Merci au passage) qui me semble, sauf erreur, être le plus proche de mon besoin.

Mais il reste un petit souci important pour moi et je n'arrive pas à le résoudre :

Je voudrais que le clignotement des cellules sélectionnées soit automatique à la sélection.

Mais le code ne fait clignoter les cellules sélectionnées que si je clique dans la colonne 9 soit la colonne I.

Je n'arrive pas à modifier le code.
Auriez-vous la solution ?

Je joins donc le fichier test qui sera, je l'espère, plus explicite que mes explications

Avec me remerciements, je vous souhaite à toutes et à tous un joyeux 1er Mai.
Amicalement,
Lionel,

 

[JCGL]

Bonjour à tous,

Fonctionne avec ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column > 0 Then
        Do While Target.Column > 0
            [A1] = 1
            Minuterie 1000
            [A1] = 0
            Minuterie 1000
            Set Target = ActiveCell
        Loop
    Else
        [A1] = ""
    End If
End Sub

A+ à tous

 

[pierrejean]

Re
A tester

Edit: Salut JC

 

[Usine à gaz]

Bonjour JC,
Bonjour Pierre-jean,
Merci d'être encore là
Je teste et je reviens.

 

[Usine à gaz]

Re Pierre-jean,
Re JC

Merci pour vos réponses, ça marche super ... juste j'adapte et je mets dans mon fichier de travail.
je vous souhaite un beau 1er mai.
Amicalement,
Lionel,