Private Sub Workbook_Open()
Call Recherche
End Sub
Public Sub Recherche()
Dim strFind As String
strFind = InputBox('Q 'est-ce qu 'on cherche aujourd 'hui ?', 'Recherche')
Cells.Find(What:=strFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End Sub