Bonjour,
une autre proposition
Sub aargh()
recherche
End Sub
Sub recherche(Optional n = 1, Optional s = "", Optional nsol = 0, Optional ni = 4)
For i = ni To 12
s = s & "+" & i
ev = Application.Evaluate(s)
If ev <= 26 Then
If ev = 26 And n > 3 Then
'solution
nsol = nsol + 1
Cells(nsol, 1) = Mid(s, 2)
ElseIf n < 6 Then
recherche n + 1, s, nsol, i
End If
Else
i = 13
End If
s = Left(s, InStrRev(s, "+") - 1)
Next i
End Sub