[COLOR="DarkSlateGray"][B]Sub toto()
Dim bse, lng As Long, cpt As String, x As Long, u As Long, sol As String
Dim i As Long, j As Long
bse = Selection.Value
lng = UBound(bse, 2) - LBound(bse, 2)
u = bse(1, UBound(bse, 2))
cpt = String(lng, "0")
For i = 0 To 2 ^ lng - 1
cpt = ""
For j = 0 To lng - 1
cpt = cpt & (i \ (2 ^ j)) Mod 2
Next j
x = 0
For j = 1 To lng
x = x + CLng(Mid$(cpt, j, 1)) * bse(1, j)
Next j
If x = u Then
sol = u & "="
For j = 1 To lng
If CLng(Mid$(cpt, j, 1)) Then sol = sol & bse(1, j) & "+"
Next j
MsgBox Left$(sol, Len(sol) - 1)
End If
Next i
End Sub[/B][/COLOR]