Mon code bloque sur la Fonction

Function SommeCouleurFondRef(champ, couleurFond)

Private Sub CommandButton3_Click()
Workbooks.Open Filename:= _
"K:\Pilotage\Camionnage\Heures_chauffeurs_mensuel.xls"
col = [COLOR="Red"]recherchemot[/COLOR]("b6:az6", Me.CbBox_choixjour.Value, 4)
'affectation des valeurs pour titulaires
For i = 1 To 28
With Me.Controls("ComboBox" & i)
    If .ListIndex > -1 And Me.Controls("ComboBox" & 12 + i).ListIndex > -1 Then
        lig = [COLOR="red"]recherchemot[/COLOR]("b9:b39", .Value, Me.ComboBox.Value, 1)
        If lig > 0 Then
Saisie_heure.Hide
End Sub

[COLOR="Blue"]Function SommeCouleurFondRef(champ, couleurFond)[/COLOR]'Dim firstAddress As String
Dim £cel As Range
'Dim ligne1 As Long
'Dim ligne2 As Long
Dim £i As Integer

With Sheets(nom_de_la_feuille).Range(plage_recherche)
     Set £cel = .Find(valcherche, LookIn:=xlValues, SearchOrder:=xlByColumns, lookat:=xlWhole) ' on recherche ligne par ligne
 If Not £cel Is Nothing Then
      
         If code_retour = 1 Then recherchemot = £cel.Row
         If code_retour = 2 Then recherchemot = £cel.Address(0, 0)
         If code_retour = 3 Then recherchemot = £cel.Column
         If code_retour = 4 Then
            For £i = 1 To Len(£cel.Address(0, 0))
                If IsNumeric(Mid(£cel.Address(0, 0), £i, 1)) Then Exit For
                recherchemot = recherchemot & Mid(£cel.Address(0, 0), £i, 1)
            Next £i
         End If
        Exit Function
    End If
End With
If code_retour = 1 Then recherchemot = 0
If code_retour = 2 Then recherchemot = ""
If code_retour = 3 Then recherchemot = 0
If code_retour = 4 Then recherchemot = ""
End Function

End Function