Function mlk(client, liste, produit)
Dim tab1, tab2
tab1 = liste
tab2 = produit
taille = UBound(tab1, 1)
For i = 1 To taille
If tab1(i, 1) = client Then
If IsEmpty(mlk) Then
mlk = tab2(i, 1)
Else: mlk = mlk & ";" & tab2(i, 1)
End If
End If
Next i
End Function