Bonsoir,
une solution via une fonction personnalisée
Function concattableau(t)
rg = ""
For j = 1 To t.Columns.Count
rc = ""
For i = 2 To t.Rows.Count
If t.Cells(i, j) <> "" Then
rc = IIf(rc = "", t.Cells(1, j) & " : ", rc & "-") & t.Cells(i, j)
End If
Next i
If rc <> "" Then
rg = IIf(rg = "", "", rg & " / ") & rc
End If
Next j
concattableau = rg
End Function
voir utilisation dans fichier joint