XL 2016 Annuler une commande si erreur

Sub Recherche()
Dim marecherche As String, recherche As Range


On Error GoTo fin
Set recherche = Cells.Find(What:="texte recherché") 

If Not recherche Is Nothing Then

Cells.Find(What:=recherche, After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate

Do Until MsgBox("Continuer ?", vbYesNo) = vbNo
    Cells.FindNext(After:=ActiveCell).Activate
Loop

Application.CutCopyMode = False
fin: If recherche Is Nothing Then
MsgBox "Donnée inexistante"
Exit Sub
End If
Application.CutCopyMode = False
End Sub

On Error GoTo fin:

Cells.Find(What:="texte recherché").Activate
Selection.Clear

'[La suite de ton exécution]'

Exit Sub

fin:
End Sub