Bonjour,
solution via une macro
Dim tr(1 To 1, 1 To 125), k
Sub aargh()
dl = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To dl
t = Cells(i - 2, 1).Resize(3, 5)
k = 0
combine t
Cells(i - 2, 7).Resize(1, k) = tr
Next i
End Sub
Sub combine(t, Optional n = 1, Optional s = "")
os = s
For i = 1 To 5
s = s & t(n, i) & " "
If n = 3 Then
k = k + 1
tr(1, k) = Left(s, Len(s) - 1)
Else
combine t, n + 1, s
End If
s = os
Next i
End Sub