XL 2019 Code VBA excel résolu

Function FeuilleExiste(NomFeuille As String) As Boolean
FeuilleExiste = False
For Each ws In ActiveWorkbook.Sheets
    If ws.Name = NomFeuille Then
        FeuilleExiste = True
        Exit Function
    End If
Next ws
End Function


Sub Copyrenameworksheet()
'Updateby Extendoffice

Dim ws As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
NomFeuille = wh.Range("A2").Value
If NomFeuille = "" Then Exit Sub
If FeuilleExiste(CStr(NomFeuille)) Then
    MsgBox "la feuille """ & NomFeuille & """ existe déjà"
    Exit Sub
End If
ActiveSheet.Copy After:=Worksheets(Sheets.Count)

ActiveSheet.Name = NomFeuille

wh.Activate

End Sub

Sub Copyrenameworksheet()
Dim existe  
 existe = TypeName(Evaluate([A2].Value & "!A1:A2")) = "Range" And ActiveSheet.[A2].Value <> ""
    If Not existe Then
        ActiveSheet.Copy After:=Worksheets(Sheets.Count)
        Sheets(Sheets.Count).Name = [A2].Value
    End If
End Sub