En fait, j'ai un soucis avec une formule, j'essaye de rechercher une chaine de caractére exacte mais je n'y arrive pas, par exemple, je fais rechercher nimes et je voudrais qu'il me sorte nimes et pas "nimasa". Vous savez comment je peux faire ? Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim FL1 As Worksheet
 
Private Sub Recherche_Click()
Dim MotCherche, Plage As Range, Cell As Range
MotCherche = Me.TextBox1.Text
ColonneRecherche = 1
Set Plage = FL1.Range(Cells(1, ColonneRecherche), _
            Cells(Range("A65536").End(xlUp).Row, ColonneRecherche))
With Plage
    Set C = .Find(MotCherche, LookIn:=xlValues)
    If Not C Is Nothing Then 'donnée trouvée
            'On place les données de la ligne dans les textbox
            Me.TextBox2.Text = FL1.Cells(C.Row, 2).Value
            Me.TextBox3.Text = FL1.Cells(C.Row, 3).Value
            Me.TextBox4.Text = FL1.Cells(C.Row, 4).Value
            Me.TextBox5.Text = FL1.Cells(C.Row, 5).Value
        Else
            MsgBox "Donnée non trouvée"
    End If
End With