XL 2016 Bouttons VBA

Function SheetExist(stFeuille) As Boolean
    On Error Resume Next
    SheetExist = Not (ThisWorkbook.Sheets(stFeuille) Is Nothing)
End Function

Sub AjouterSheetWithName()

    'Et la de quoi mémoriser la dernière ligne
    Dim lngLastRow As Long

    'On recherche la dernière ligne de la feuille tu devra choisir ta colonne et ta feuille
    lngLastRow = Sheets("NomDeTaFeuille").Range("A65536").End(xlUp).Row

    'on vérifie si la feuille existe
    If Not SheetExist(CStr(lngLastRow)) Then
        
     Sheets.Add After:=Worksheets(Worksheets.Count)
        With ActiveSheet
        .Name = CStr(lngLastRow)
        .visible = xlSheetVisible
        
        End With
    Else
        MsgBox "Cette feuille existe et ne peu donc pas être créée", vbInformation, ThisWorkbook.Name

    End If

End Sub

lngLastRow = Sheets("NomDeTaFeuille").Range("A65536").End(xlUp).Row

lngLastRow = Sheets("NomDeTaFeuille").cells(Application.Rows.Count,1).End(xlUp).Row