Recherche:

il suffit de mettre ça au début


Const ForReading = 1, ForWriting = 2, Forappend = 8
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso =...

Désolé du retard,
je n'avais pas pensé à la manière de ProgElecT mais c'est effectivement la meilleur je pense.
par contre avec le while il suffisait de continuer les select case imbriqué avec dans...

Je ne sais pas si c'est la façon la plus propre de l'écrire mais je pense que sa répond a ton problème:

'MsgBox Oui + Non
Dim test1
test1=False
While(test1<>true)
Select Case MsgBox("Est-ce...