Problème d'affichage de valeur avec fonction de recherche

Bonjour à tous,

J'utilise une fonction de recherche globale en VBA dans mon fichier Excel. Quand il recherche une donnée numérique je n'ai pas de soucis tout fonctionne.

Par contre quand je veux avec cette fonction afficher du texte j'ai le message "#VALEUR!" dans la cellule de recherche.

Savez-vous de quoi peut venir mon problème ?

Voici le code de la recherche Globale :

Function RechercheGlobale(ValeurCherchée) As Double

Dim SH As Worksheet
Dim CL As Range
RechercheGlobale = 0
'Exit Function
For Each SH In Worksheets
  If SH.Name <> "SUIVIS" Then
    For Each CL In SH.Range("F2:F" & SH.Range("F65536").End(xlUp).Row)
      If CL = ValeurCherchée Then
        RechercheGlobale = CL.Offset(0, -5)
      End If
    Next CL
  End If
Next SH
End Function

merci pour votre aide

Bonjour

Normal ta fonction retourne un Double

Modifies le type retournée en Variant ou en ne mettant rien

Function RechercheGlobale(ValeurCherchée) 

Bonne journée

Impeccable c'est exactement ça, merci beaucoup.

merci