Function Joindre(vecteur1 As Range, vecteur2 As Range, sep As String) As String
Dim i As Long
For i = 1 To vecteur1.Count
If vecteur2(i) <> "" Then Joindre = Joindre & sep & vecteur2(i) & " " & vecteur1(i)
Next
Joindre = Mid(Joindre, Len(sep) + 1)
End Function