Saut de ligne VBA

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