Dim texte$ 'mémorise la variable
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
texte = Target(1).Text
If texte <> "" Then MsgBox "Activez la feuille où vous voulez chercher '" & texte & "'..."
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If texte = "" Then Exit Sub
On Error Resume Next
Cells.Find(texte, , xlValues, xlWhole).Select
If ActiveCell.Text <> texte Then
Cells.Find(texte, , xlValues, xlPart).Select
MsgBox IIf(Application.CountIf(ActiveCell, "*" & texte & "*"), _
"Recherche partielle OK...", "'" & texte & "' n'existe pas dans cette feuille...")
End If
End Sub