Bonjour TEmjeh,
Un essai de réponse, rajouter :
'Déclaration de variables
Dim Quant As Variant
Dim Plage As Range
'Définition des variables
Quant = textbox4.Value
Set Plage = Range('E1:E' & Range('E65000').End(xlUp).Row)
'Vérification de la présence
If Application.CountIf(Plage, Quant) > 0 Then
MsgBox 'Valeur existante'
Exit Sub
Else
ActiveCell = TextBox1
ActiveCell.Offset(0, 2).Value = TextBox2
ActiveCell.Offset(0, 1).Value = TextBox6
ActiveCell.Offset(0, 3).Value = TextBox3
'enlève tout espace dans textbox4 téléphone
textbox4.Value = Replace(expression:=textbox4.Value, Find:=' ', Replace:='')
ActiveCell.Offset(0, 4).Value = textbox4
'met * au début du 2ème téléphone afin de ne pas le rechercher
ActiveCell.Offset(0, 5).Value = TextBox7
ActiveCell.Offset(0, 6) = TextBox5
End If
Cordialement
CBernardT