Salut,
Voici un code inspirer du code de Yeahou : Classeur_Ouvert
Function Feuille_Existe(ByVal Nom_Feuille$) As Boolean
Application.Volatile
On Error Resume Next
Dim Test_Objet As Worksheet
Set Test_Objet = Worksheets(Nom_Feuille)
If Not Test_Objet Is Nothing Then...