Sub combi()
Columns("D").Clear
For lig1 = 1 To [A1].End(xlDown).Row - 2
For i = 1 To 3
For lig2 = lig1 +1 To [A1].End(xlDown).Row - 1
For j = 1 To 3
For k = 1 To 3
[D65536].End(xlUp).Offset(1, 0).Value = Cells(lig1, i).Value & _
Cells(lig2, j).Value & Cells(lig2 + 1, k).Value
Next
Next
Next
Next
Next
End Sub