Dernier soucis avec la Makro

Sub Recherche()
    texte_a_rechercher = InputBox("Texte à rechercher", "Recherche")
    If texte_a_rechercher = "" Then Exit Sub
    For Each feuille In Worksheets
        With feuille.Cells
            [COLOR=red][B]On Error GoTo fin[/B][/COLOR]
            Set C = .Find(texte_a_rechercher, LookIn:=xlValues)
            If Not C Is Nothing Then
                firstAddress = C.Address
                Do
                    C.Interior.ColorIndex = 4
                    Application.Goto Reference:=Worksheets(feuille.Name).Range(C.Address), Scroll:=True
                    [B][COLOR=red]If MsgBox("Recherche du suivant", vbOKCancel, "Recherche") = vbCancel Then GoTo fin[/COLOR][/B]
                    [B][COLOR=green]' C.Interior.ColorIndex = xlNone --*- INUTILE --*-[/COLOR][/B]
                    Set C = .FindNext(C)
                    Adresse_encours = C.Address
                Loop While Adresse_encours <> firstAddress
            End If
        End With
    Next
 
[B][COLOR=red]fin: Application.Goto Reference:=[A1][/COLOR][/B]
[B][COLOR=red]Cells.Interior.Color = xlNone[/COLOR][/B]
End Sub