Besoin d aide recherchev et msgbox

Function test(Val As Range, ZoneControl As Range) As String

Dim i As Double
Dim TxtVal As String

i = 0 'on initialise i à 0
TxtVal = Val.Value

'correspond à NB.SI($D$4:$D$200;B4)>1;"Doublon"

For Each cell In ZoneControl 'balaye toutes les cellules de la colonne D
    If cell.Value = Val.Value Then 'si la valeur de la colonne D est égale à celle qu'on cherche, il incrémente i de 1
        i = i + 1
    End If
Next cell 'passe à la cellule suivante


'i est égal à 1 donc il existe
If i = 1 Then
    test = TxtVal 'il affiche la valeur
      trouver comment modifier la couleur à cet endroit
    Exit Function
End If

'i est supp à un donc il y a un doublon
If i > 1 Then
    MsgBox "Doublon" 'affiche la boite de message
    test = "doublon" 'inscrit doublon dans la cellule
    Exit Function
End If

'i est égal à 0 donc il n'existe pas dans la liste
If i = 0 Then
    MsgBox "Référence non attendue" 'affiche la boite de message
    test = "absent" 'inscrit doublon dans la cellule
    Exit Function
End If

End Function