re,
Dim Message, Title, Default, MyValue
Dim ValOk As Boolean
ValOk = False
Message = "Veuillez saisir le nom de la feuille N° 2" & Chr(13) & _
"Ex: Calcul Impot JUILLET_04" & Chr(13) & _
"!!! SOYEZ VIGILANT A LA SYNTAXE !!!"
Title = "Information utilisateur"
Default = "Calcul Impot"
MyValue = InputBox(Message, Title, Default)
If IsEmpty(MyValue) Then GoTo Fin 'je vérif si il y au moins qqchose dans MyValue
For i = 1 To ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets(i).name = MyValue Then ValOk = True
Next i
if ValOk = true Then
'ici ton code a faire si il a valider et que la valeur est bonne
end if
si il click sur annuler, ValOk vaudra false vu qu'il y aura une chaine vide dans MyValue donc ton code ne sera pas lancé.