Sub recherche()
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Worksheet
Dim Str_critère As String
Dim X As Byte
Str_Plage = "[COLOR=Red][B]B1:B700[/B][/COLOR]"
Str_critère = InputBox("Element recherché:")
Lg_critère = Len(Str_critère)
For Each Feuil In Sheets
'MsgBox (Feuil.Name)
For Each Cel In Feuil.Range(Str_Plage)
'If UCase(Left(Cel, Lg_critère)) = UCase(Str_critère) Then'
If (InStr(UCase(Cel.Value), UCase(Str_critère)) > 0) Then
X = MsgBox("element """ & Cel & """ trouvé! :" & Chr(13) & _
"Oui : s'y rendre" & Chr(13) & _
"Non : continuer la recherche " & Chr(13) & _
"Annuler : arrêter la recherche" & Chr(13), vbDefaultButton1 + _
vbQuestion + vbYesNoCancel, "ELEMENT TROUVÉ!")
Select Case X
Case 6
Feuil.Activate
[B][COLOR=Red]Cel.Offset(0, -1).Activate[/COLOR][/B]
Exit Sub
Case 2 'annuler on sort
Exit Sub
Case Else 'Non=7
'on fait rien, mais on pourrait
End Select
End If
Next Cel
Next Feuil
MsgBox ("FIN DE LA RECHERCHE")
End Sub