Sub testX()
'test dans le classeur meme
MsgBox sheetsExiste(ThisWorkbook, "feuil2")
End Sub
Sub testy()
'test dans le 2d classeur de la même instance du classeur contenant la macro
Dim wbk As Workbook
'Set wbk = Workbooks(2) 'par son index
Set wbk = Workbooks("toto.xlsm") ' identifié par son nom
MsgBox sheetsExiste(wbk, "feuil3")
End Sub
Function sheetsExiste(wbk As Workbook, sname As String) As Boolean
sheetsExiste = Not IsError(Evaluate("='[" & wbk.Name & "]" & Replace(sname, "'", "''") & "'!A1:A2"))
End Function