Chercher dans une TextBox

Bonjour,

Je n'arrive pas à faire fonctionner la reconnaissance de texte dans une Textbox, quelqu'un pourrait me dépanner?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Chercher()
    Dim trouve As Boolean, sTexte_search As String, sTexte_find As String
 
    sTexte_search = "PATATE" 
 
    If Worksheets("Code").Shapes("Skeleton").TextFrame.Characters.Text Like sTexte_search Then
        trouve = True
    End If
 
    If trouve Then sTexte_find = "TRUE"
 
'Mise en forme et affichage 
    H = 40
    W = 400
    l1 = 25
    T = 25
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, l1, T, W, H).Select
 
    With Selection
        .Name = "trouvé?"
        .Characters.Text = sTexte_find
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .ShapeRange.Fill.ForeColor.SchemeColor = 43
        .ShapeRange.Line.Weight = 2.5
        .ShapeRange.Line.ForeColor.SchemeColor = 0
    End With
 
    With Selection.Font
        .Name = "Arial"
        .Size = 10
        .Bold = False
        .ColorIndex = 0
    End With   
End Sub

Rien ne s'affiche dans ma Textbox créé alors que "PATATE se trouve bien dans la zone de texte "Skeleton" , qui elle , se trouve dans le workbook "Code"..je ne comprend pas