Code VBA Saut de ligne

Bonjour,
Je recherche si possible un code VBA me permettant lors d'une recherchv de sauter à la ligne aprés chaque résultat trouvé.
Le code actuel utilisé est le suivant :

Function VLooKupList(ValeurRecherchee As Range, TableDeRecherche As Range, NumColonne As Integer, SEPARATOR As String) As Variant
Dim NbLignes As Integer
NbLignes = TableDeRecherche.Rows.Count
Dim CompteurValeursTrouvees As Integer
CompteurValeursTrouvees = 0
For i = 1 To NbLignes
If TableDeRecherche(i, 1).Value = ValeurRecherchee.Value Then
CompteurValeursTrouvees = CompteurValeursTrouvees + 1
If CompteurValeursTrouvees > 1 Then
VLooKupList = VLooKupList & Chr(10) & TableDeRecherche(i, NumColonne).Value
Else
VLooKupList = TableDeRecherche(i, NumColonne).Value
End If
End If
Next i
End Function

Je vous remercie !!!