Sub ChoisirNom()
Dim Nom As String, Autre As String
Autre = IIf(UCase(ActiveSheet.Name) = "TOTO", "TITI", "TOTO")
Nom = InputBox("Entrez un nouveau nom pour la feuille ''" & ActiveSheet.Name & "''" & vbLf & "Choix disponible ''Titi'' ou ''Toto'' ", "Saisie", Autre)
If Nom = "" Then Exit Sub
If UCase(Nom) <> "TOTO" And UCase(Nom) <> "TITI" Then
MsgBox "Le nom : " & Nom & vbLf & "Choix non disponible.", , "Erreur de saisie"
Exit Sub
End If
ActiveSheet.Name = Nom
End Sub