If TextBox2.Value = '' Then FT1.Visible = flase
Dim C As Range 'déclare la variable c
'recherche (dans la plage) de la valeur de la TextBox1 : dans les valeurs, critère: mot entier
With plage
Set C = .Find(TextBox2.Value, , , xlWhole) 'définit la variable c)
If C Is Nothing Then 'si recherche infructueuse
FT1.Visible = True And Int1.Visible = False
Else 'sinon
FT1.Visible = False And Int1.Visible = True 'message
End If 'fin condition
End With