Erreur d'exexution 13 suite à la saisie dernière ligne

Bonjour à tous

Je rencontre un problème (qui a surement déjà été débattu) et je voudrais comprendre et rectifié.
J'explique en quelques mots :

Dans userform_initialise() je rajoute les quelques lignes de code suivant qui me permette d’incrémenter ma textbox1. Cela fonctionne jusqu'à ce que la dernière ligne (15 dans mon cas) soit trouvée. A ce moment la => "erreur d'exexution 13".

Dim LigneNew As Integer

LigneNew = Cells(15, 2).End(xlUp)

If Cells(4, 2) = "" Then
        Me.TextBox1.Value = 1
    ElseIf Cells(15, 2) <> "" Then
        MsgBox "Vous ne pouvez plus enregistrer de nouvelle ligne !", vbCritical
        Exit Sub
    Else
        Me.TextBox1.Value = LigneNew + 1
End If
    

Je me réponds à moi meme:

J'ai fait le contrôle sur la cellule avant l'affichage et la plus de soucis. J'ai posé la question pour rien.
Bonne journée
Jluc

If Cells(15, 2) <> "" Then
    MsgBox "Vous ne pouvez plus enregistrer de nouvelle ligne !", vbCritical
    Exit Sub
End If
'------------------------------------
LigneNew = Cells(15, 2).End(xlUp)

If Cells(4, 2) = "" Then
    Me.TextBox1.Value = 1
Else
    Me.TextBox1.Value = LigneNew + 1
End If