Faire clignoter une image dans userform sous condition

bonjour,

je voudrais faire clignoter une image dans un module suivant une valeur voici mon code je me suis perdu dans toute cette programmation

Sub test()

Do While Sheets("programation").Range("C4") < 20

If accueil.niveaucuve4.Visible = True Then

accueil.niveaucuve4.Visible = False

Else

accueil.niveaucuve4.Visible = True

End If

Application.OnTime Now + TimeValue("00:00:03"), "module.test"

Exit Do

Loop

End Sub

voila merci par avance

mon code me bloque tout je ne sais plus quoi faire

et aussi quitter la boucle une fois que je ferme l'userform accueil merci

Bonjour et bienvenu(e)

Tout ce que je peux dire c'est que sans fichier, je n'y arriverai pas du tout, alors qu'avec un fichier ce sera peut-être la même chose

Mais au moins j'aurai essayé

Rechercher des sujets similaires à "clignoter image userform condition"