Sub Recherche()
Dim motcle As String
Dim fin As Integer
Dim liste As Range
Dim c As Range
Dim first As Integer
With Sheets(1)
' ______Test si la liste est vide ou non
If .Range('A2').Value = '' Then
MsgBox ('La liste est vide')
Exit Sub
Else
fin = .Range('A2').End(xlDown).Row
Set liste = .Range('A2:A' & fin)
End If
End With
With Sheets(2)
motcle = .Range('A2').Value
If motcle = '' Then
MsgBox ('Aucun mot clé n'a été donné')
Exit Sub
End If
End With
'_____________________________________________________________
With liste
Set c = .Find(motcle, LookIn:=xlValues)
If Not c Is Nothing Then
first = c.Row
End If
End With
Sheets(1).Select
c.Select
ActiveWindow.ScrollRow = first
End Sub