XL 2016 Si une feuille existe alors ... Sinon la créer

Sub HelloNouvelleFeuille()
Yo = Range("A2")
For Each Man In Worksheets
    If Man.Name = Yo Then MsgBox "cette feuille existe": Exit Sub
Next
Set Nouvelle = ThisWorkbook.Sheets.Add
Nouvelle.Name = Yo
End Sub

Sub temp()
 Dim i As Integer
 For i = 1 To Sheets.Count
   If Sheets(i).Name = Range("A2").Value Then
     MsgBox ("Cette feuille existe")
     Exit Sub
   End If
 Next
  Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Range("A2").Value
End Sub

Sub test()
MsgBox SheetsExist("Feuil5")' le nom du classeur est optional 
End Sub

Function SheetsExist(nom, Optional classeur As String = "") As Boolean
    If IsError(TypeName(Evaluate("='[" & IIf(classeur = "", ThisWorkbook.Name, classeur) & "]" & nom & "'!A:B"))) Then Exit Function Else SheetsExist = TypeName(Evaluate(nom & "!A:B")) = "Range"
End Function

Sub test2()
    MsgBox SheetsExist2("Feuil5")
End Sub

Function SheetsExist2(nom, Optional classeur As String = "") As Boolean
On Error Resume Next
SheetsExist2 = True
Set x = Workbooks(IIf(classeur = "", ThisWorkbook.Name, classeur)).Sheets(nom)
If Err.Number > 0 Then SheetsExist2 = False: Err.Clear
End Function

Function SheetsExist(nom, Optional classeur As String = "") As Boolean
On Error Resume Next: SheetsExist = LCase(Workbooks(IIf(classeur = "", ThisWorkbook.Name, classeur)).Sheets(nom).Name) = LCase(nom): On Error GoTo 0
End Function