Condition si textebox.value est présent dans cellules séléctionnées

........
.........
Columns("A:A").Select
 
[B][COLOR=red]Set trouve = Selection.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, _[/COLOR][/B]
[B][COLOR=red]LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _[/COLOR][/B]
[B][COLOR=red]MatchCase:=False, SearchFormat:=False)[/COLOR][/B]
[B][COLOR=red]If Not trouve Is Nothing Then[/COLOR][/B]
   If [B][COLOR=red]trouve[/COLOR][/B].Offset(0, 1) = "Rarement ou jamais" Then
      Sheets("save_data").Visible = False
      Sheets("Questio").Select
      Application.ScreenUpdating = True
      Unload UserForm1
      UserForm3.Show
   ElseIf [B][COLOR=red]trouve[/COLOR][/B].Offset(0, 3) = "" Then
      Sheets("save_data").Visible = False
      Sheets("Questio").Select
      Application.ScreenUpdating = True
      Unload UserForm1
      UserForm_satisfaction.Show
   Else: Sheets("save_data").Visible = False
      Sheets("Questio").Select
      Application.ScreenUpdating = True
      Unload UserForm1
      UserForm_End.Show
   End If
Else: UserForm1.Hide
      UserForm2.Show
 
End If
.............
.............
............

Private Sub CommandButton4_Click()
[COLOR=Blue]Dim AC As Range[/COLOR]
Application.ScreenUpdating = False

Sheets("save_data").Visible = True
ActiveWorkbook.Sheets("save_data").Select
ActiveSheet.Unprotect
[COLOR=Blue]Set AC = ActiveCell[/COLOR]

Columns("A:A").Select

If [COLOR=Blue]CStr(Selection.Find(What:=TextBox1.Value, After:=AC, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Value) = [/COLOR][COLOR=Blue]TextBox1.Value [/COLOR]Then
....