En parcourant les archives de exccel dowloads, j'ai vu qu'une personne avait le même problème que moi et qu'elle s'en était sortie avec :
Dim t
t = 30
TextBox1.SetFocus
If TextBox1.LineCount > t Then
MsgBox 'Trop'
End If
en se servant de ça et de la commande locked je pense pouvoir m'en sortir.
Je vais essayer ça.