trou de mémoire su boucle

[david]

L'extrait de mon code ci-dessous doit permettre à l'utilisateur de saisir dans une input box une valeur à trouver dans plusieurs feuilles.
Le problème, c'est que je ne sais plus comment faire pour renvoyer à nouveau la question si il n'y a pas de valeur saisi(tant que ce n'est pas un choix de l'utilisateur de quitter l'application) après le "then", je ne sais plus faire.
Je vous remercie

sub test()

Dim recherche As String
Dim ws As Object


recherche = InputBox(Prompt:="Saisir la valeur à chercher.", Title:="Recherche")

If recherche = "" Then.................................

 

[CHti160]

Salut"david "
une solution Possible
sub test()
Dim recherche As String
Dim ws As Object

Recommence:

recherche = InputBox(Prompt:="Saisir la valeur à chercher.", Title:="Recherche")
If recherche = "" Then

Goto Recommence

else
Action
A+++
Jean Marie

 

[david]

Salut Jean Marie,

Je te remercie de ta réponse qui fut rapide, ça marche.
A++++