Recherche qui fonctionne avec le texte et non la Value

Bonjour

Le code ci-dessous me permet d'aller chercher des valeurs de "N° Outil"

les outils sont appelés N° 0001 / N° 0002 / N° 0003 ...

Le problème est que j'ai des outils en double qui sont appelés par exemple N° 0007 et N° 0007 - Bis

Si je fait une recherche du N° 0007 la recherche ne trouvera que le N° 0007 - Bis !

Il faudrait une recherche qui fonctionne avec le texte et non la Value

Merci pour votre aide

Private Sub BtnRechercheOutil_Click()

Dim NumOutil As String
Feuil3.Activate
Range("A1").Select

NumOutil = Page6ChoixOutil.ListBoxOutillages.Value

'rechercher

   ActiveSheet.Columns(1).Cells.Find(What:=NumOutil, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate

'**************************
'Activation Formulaire de modificaion
Page7ModificationOutil.Show

End Sub

Bonjour

Merci de prendre connaissance de la charte du forum --> Extrait de la charte de ce forum

LES AUTRES RÈGLES À RESPECTER

• Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum).

Pour ne pas faire perdre du temps à ceux qui pourraient aider sur d'autres fils, merci de choisir votre forum pour votre demande

selon votre décision le fil sera verrouillé ou pas

Crdlt