Function ConcatSi(rgX As Range, rgC As Range, Typ As String) As String
' Typ doit valoir "D" ou "S"
Dim j As Long, s As String, debut As Long
If UCase(Typ) = "D" Then debut = 1 Else debut = 2
For j = debut To rgX.Columns.Count Step 2
If Trim(rgX.Cells(1, j)) <> "" Then s = s & ", " & Trim(rgC.Parent.Cells(rgC.Row, 1 - debut + rgX.Cells(1, j).Column))
Next
If Len(s) > 0 Then ConcatSi = Mid(s...