Sub RechercheSelect()
Dim R As Range
Dim C As Range
Dim var
If TypeName(Selection) <> "Range" Then
MsgBox "Veuillez sélectionner une plage de cellules"
Exit Sub
End If
var = Application.InputBox(prompt:="Mot à rechercher")
If var = False Then Exit Sub
If IsNumeric(var) Then var = CDbl(var)
For Each C In Selection
If C = var Then
If R Is Nothing Then
Set R = C
Else
Set R = Application.Union(R, C)
End If
End If
Next C
If Not R Is Nothing Then
R.Select
Else
MsgBox "Aucune occurence de " & var & " n'a été trouvée"
End If
End Sub