pour poser une question il vaut mieux passer par le forum. Pour renvoyer une feuille par son index, il suffit de modifier la macro ainsi : Function FeuilleExiste(Feuille) AsBoolean'Ti OnErrorResumeNext FeuilleExiste = Sheets(Feuille).Name <> "" EndFunction
Ensuite, tu peux écrire : MsgBox FeuilleExiste("Feuil3") ou bien : MsgBox FeuilleExiste(3)