Sub toto()
Lig = 1 'voir départ de la 1'ligne !?
Do: Col = 8
For I = 1 To 6: For Y = I + 1 To 6: For Z = Y + 1 To 6
Cells(Lig, Col) = Cells(Lig, I) & ";" & Cells(Lig, Y) & ";" & Cells(Lig, Z): Col = Col + 1
Next Z: Next Y: Next I
Lig = Lig + 1
Loop Until Cells(Lig, 1) = ""
End Sub