extraire des éléments de A^3

[COLOR="DarkSlateGray"][B]Sub SPECIAL()
Dim i As Long, j As Long, k As Long, n As Long, p As Integer, a As String, b As String
Dim ens, elem, srt
   ens = ActiveCell.Value
   a = Mid$(ens, 2, Len(ens) - 2)
   a = Replace(a, " ", "", 1)
   elem = Split(a, ";")
   n = (1 + UBound(elem) - LBound(elem)) ^ 3
   ReDim srt(1 To n, 1 To 1)
   For i = LBound(elem) To UBound(elem)
      a = elem(i)
      For j = LBound(elem) To UBound(elem)
         b = elem(j)
         For k = LBound(elem) To UBound(elem)
            p = p + 1
            srt(p, 1) = "(" & a & ";" & b & ";" & elem(k) & ")"
         Next k
      Next j
   Next i
   ActiveCell.Offset(1, 0).Value = "Les " & n & " éléments de " & ens & "^3 sont :"
   ActiveCell.Offset(2, 0).Resize(n, 1).Value = srt
End Sub[/B][/COLOR]