Besoin aide sur macro tester recherche

Bonjour à tous,

j'ai besoin d'un conseil sur une macro VB,

je souhaite que ma fonction recherche dans une plage donnée une valeur du genre "TRI012",

je voudrais qu'elle fasse un message d'erreur si elle ne trouve pas cette valeur et qu'elle fasse une autre opération si elle trouve la valeur.

la macro que j'ai créé trouve bien cette valeur(voir ci dessous), mais je ne sais pas comment faire pour tester une recherche négative.

J'espère que je suis assez clair.

Merci d'avance pour vos réponses!

Vince

Sub ordrefabrication()

  Dim a As String


a = InputBox("quel est le type de triangle à réaliser?")

    If a = "" Then GoTo erreur

    For i = 2 To 200

Sheets("triangles").Activate

Range("F6").Value = a

If (Sheets("BDD triangles").Cells(5, i) = Cells(6, 6).Value) Then
Sheets("triangles").Cells(15, 6) = Sheets("BDD triangles").Cells(6, i) 

 End If

        Next
        
    Exit Sub

erreur: MsgBox ("Cette référence n'existe pas!")
Feuil1.Activate

    Exit Sub


End Sub