Bonjour,
Dans ton fichier remplace les deux macros par celles ci-après :
Sub Recherche()
'Macro par Nad & Dan pour Max70200 - XL Pratique le 16/04/08
Dim TROUVE As String, secteur As String
Dim cell As Range
secteur = Sheets("INFOS").Range("B4").Value
TROUVE = Sheets("INFOS").Range("B3").Value
With Sheets(secteur)
.Activate
For Each cell In .Range("B3:B1000")
If cell.Value = TROUVE Then cell.EntireRow.Select
Next cell
End With
End Sub
Sub TROUVE()
'Macro par Nad & Dan pour Max70200 - XL Pratique le 16/04/08
Dim TROUVE As String, secteur As String
Dim cell As Range
secteur = Sheets("INFOS").Range("E4").Value
TROUVE = Sheets("INFOS").Range("E3").Value
With Sheets(secteur)
.Activate
For Each cell In .Range("D2:D1000")
If cell.Value = TROUVE Then cell.EntireRow.Select
Next cell
End With
End Sub
Si tu penses aller plus loin que la ligne 1000, il faudra adapter le code.
Amicalement
Dan