Bonsoir
une proposition,
mettre les enchainements poings et pieds en ligne 2, lancer la macro via alt-F8.
comme le fichier est au format xls. le nombre de combinaisons par colonne est limité à 65535. les combinaisons suivantes possibles s'il y en a ne seront pas affichées.
Sub aargh()
Set r = Range("E2:M2")
For Each c In r
combine c
Next c
End Sub
Sub combine(c, Optional n = 1, Optional s = "", Optional k = 2)
t = Split(c.Value, ",")
If t(n - 1) = "poings" Then lim = 16: col = 2 Else lim = 31: col = 4
For i = 1 To lim
os = s
s = s & IIf(s = "", "", ", ") & Cells(i + 1, col)
If n - 1 = UBound(t) Then
k = k + 1
On Error Resume Next
Cells(k, c.Column) = s
On Error GoTo 0
Else
combine c, n + 1, s, k
End If
s = os
Next i
End Sub