Problème de boucle if elseif

Sub test()

Dim valCel As String

Reference = InputBox("Saisie de la référence de la pièce : ", Recherche)

For i = 5 To 200
valCel = Cells(i, 4).Value

If Reference = valCel Then
  Cells(i, 4).EntireRow.Font.Color = RGB(4, 139, 154)
Else
  MsgBox "Cette référence n'existe pas"
  Exit Sub
End If

Next

End Sub

Sub test2()

Dim celTrouve As Range
Dim Valeur_Cherchee As Variant
Dim PlageDeRecherche As Range
Dim I As Long

Valeur_Cherchee = InputBox("Saisie de la référence de la pièce : ", Recherche)
Set PlageDeRecherche = ActiveSheet.Range("D1:D200")

Set celTrouve = Cherche(Valeur_Cherchee, PlageDeRecherche)
If Not celTrouve Is Nothing Then
   I = celTrouve.Row
   Cells(I, 4).EntireRow.Font.Color = RGB(4, 139, 154)
Else
  MsgBox "Cette référence n'existe pas"
  Exit Sub
End If

End Sub

Function Cherche(ByVal Valeur_Cherchee, ByVal PlageDeRecherche As Range) As Range
'déclaration des variables :
Dim Trouve As Range
Dim AdresseTrouvee As String

'méthode find, ici on cherche la valeur exacte (LookAt:=xlWhole)
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
    'ici, traitement pour le cas où la valeur n'est pas trouvée
    AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
    Cherche = Nothing
Else
    Set Cherche = Trouve
End If
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
End Function