msgbox si texte dans une plage de cellule

Bonjour Drisou,

1- Dans le module de la feuil1 placer la macro suivante :

Private Sub Worksheet_Activate()
ChercherMot
End Sub

2- Dans un module standard mettre la macro de recherche :

Sub ChercherMot()
Dim Zone As Range, Cell As Range
Dim Cible As String
Dim N As Byte

'Mot à chercher
Cible = InputBox(' Saisir le mot à rechercher : ', 'Recherche', 'Le mot')
Set Zone = Sheets('Feuil1').Range('B5:B50')
Set Cell = Zone.Find(What:=Cible, LookIn:=xlValues, LookAt:=xlPart)
'Vérification de la présence du mot à chercher
If Not Cell Is Nothing Then
Cell.Select
End If
End Sub

A noter que le mot à chercher est demandé avec une inputbox.

Cordialement

Bernard

re, merci cBernardT,
la methode est pas mal , mais c est pas vraiment ce que je cherchais, je m explique : j ai un tableau de 10000 lignes ou je dois saisir des numeros dans la 1 ere colonne et pour eviter de saisir 2 fois le meme numero j aurais voulu avoir une msgbox qui souvre pour me dire que ce numero existe deja et m indique la position dans laquelle se trouve ce doublon. merci encore