Recherche d'une valeur dans une chaine de caractère et renvoi

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Cel As Range
If Not Intersect(Target, Range("B3:B504")) Is Nothing Then
    Cancel = True
    Set Cel = Sheets("FMEA").Columns(1).Find(What:=Target, LookIn:=xlFormulas, LookAt _
            :=xlPart)
    If Not Cel Is Nothing Then
        If IsNumeric(Left(Cel, 1)) Then
            Target.Offset(0, 2) = "Solution multiple"
        Else
            Target.Offset(0, 2) = Cel.Offset(0, 2)
        End If
    End If
End If
End Sub

Function Pedroo(Plage As Range, AChercher As String) As String
Dim Cel As Range
Set Cel = Plage.Find(What:=AChercher, LookIn:=xlFormulas, LookAt _
            :=xlPart)
If Not Cel Is Nothing Then
    If IsNumeric(Left(Cel, 1)) Then
        Pedroo = "Solution multiple"
    Else
        Pedroo = Cel.Offset(0, 2)
    End If
End If
End Function

=Pedroo(FMEA!A$2:A$164;B3)