Passage paramètres de recherche dans fonction perso

Function Rangeleve(eleve)
    set Rangeleve = Cells.Find(What:=eleve, After:=ActiveCell, LookIn:=xlFormulas, _
                 LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                  MatchCase:=False, SearchFormat:=False).Activate
End Function

dim result as range
set result = Rangeleve(Range("$A$1"))
if not result is nothing then
    lig = result.row
else
    msgbox "Pas trouvé"
end if

Function Rangeleve(eleve as string) as range
    set Rangeleve = Cells.Find(What:=eleve, After:=ActiveCell, LookIn:=xlFormulas, _
                 LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                  MatchCase:=False, SearchFormat:=False).Activate
End Function

Public Function Rangeleve(eleve As String) As Integer
    Set Rangeleve = Cells.Find(What:=eleve, After:=Range("A1"), LookIn:=xlValues, _
                 LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    Rangeleve = Val(Mid(Cells(c.Row, 1), 8, 2))
End Function

Public Function Resulteleve(eleve As String) As String
Dim Rangeleve As Range '[COLOR=Blue]variable qui va récupérer la _ 
 cellule qui contient le nom[/COLOR]
With Worksheets("exemple") 'avec la feuille exemple
[COLOR=Blue]'ci dessous on va récupérer si elle existe la cellule ou _
 se trouve le nom passe en argument[/COLOR]
Set Rangeleve = .Cells.Find(what:=eleve, After:=ActiveCell, _
  LookIn:=xlFormulas,LookAt:=xlPart, SearchOrder:=xlByRows,_
    Direction:=xlNext,MatchCase:=False, SearchFormat:=False)
lig = Rangeleve.Row [COLOR=Blue]'ici on récupére le numero de la ligne _
 de la cellule ainsi trouvée[/COLOR]
contcell = .Cells(lig, 1)[COLOR=Blue] 'on affecte à la variable la valeur _
 de la cellule qui se trouve en colonne 1 sur la ligne lig[/COLOR]
rang = Mid(contcell, 8, 2) [COLOR=Blue]'et on récupère l'élément voulu _
 via la fonction Mid[/COLOR]
End With
   Resulteleve = rang '[COLOR=Blue]on passe à la fonction le résultat _
 de la recherche[/COLOR]
End Function