On 2 Sep, 18:25, "Don Guillett" wrote:
Perhaps if we could understand what you want we could help. Before/after
examples. If all else fails, you may send your workbook to my address below
and I'll try to take a look later in the day as I will be out of the office
for awhile.

Thank you so much ! Thank you so much ...

I have done my homework , and I could resolve the
problems : first 1} , 2} and 2} .
Now , my code look so :

Sub Scenarios()

Dim i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15
As Long
Dim i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28,
i29, i30 As Long
Dim iRow As Long
Dim iRow1 As Long

For i1 = 1 To 26
For i2 = i1 + 1 To 27
For i3 = i2 + 1 To 28
For i4 = i3 + 1 To 29
For i5 = i4 + 1 To 30
iRow = iRow + 4
Range("H1") = Cells(i1, "D").Value
Range("I1") = Cells(i1, "E").Value
Range("J1") = Cells(i1, "F").Value
Range("H2") = Cells(i2, "D").Value
Range("I2") = Cells(i2, "E").Value
Range("J2") = Cells(i2, "F").Value
Range("H3") = Cells(i3, "D").Value
Range("I3") = Cells(i3, "E").Value
Range("J3") = Cells(i3, "F").Value
Range("H4") = Cells(i4, "D").Value
Range("I4") = Cells(i4, "E").Value
Range("J4") = Cells(i4, "F").Value
Range("H5") = Cells(i5, "D").Value
Range("I5") = Cells(i5, "E").Value
Range("J5") = Cells(i5, "F").Value

Next i5
Next i4
Next i3
Next i2
Next i1
End Sub

Now , the result of combination is static , the code displaing the
results only in Range("H1:J5") , and this resolvad my second 2}
problem ,
and first 1} and 2} .

What remain unresolved is to generate the results in all range
(Columns H:J ) ,Row 6 is
beginning of the second combination ...( to display the results in
entire columns ,
from row1 to row 65536 ) , every 5 rows being an complete combination
(Rows 1 to 5
= 1,2,3,4,5 ; Rows 6 to 10 = 1,2,3,4,6 ; Rows 11 to 15 = 1,2,3,4,7
etc .....to Row 65536)

Thanks so much for your atitude for help .
Thank you so much you give me acces to your help .