Sub Quinte()
Dim x As Integer
Dim A1 As Byte
Dim A2 As Byte
Dim A3 As Byte
Dim A4 As Byte
Dim A5 As Byte
x = 2 ' la aussi
Columns("C:C").ClearContents ' il y a une erreur a ce niveau
A1 = 1 To 8
A2 = A1 + 1 To 9
A3 = A2 + 1 To 10
For A4 = A3 + 1 To 11
For A5 = A4 + 1 To 12
Cells(x, 3) = A1 & " " & A2 & " " & A3 & " " & A4 & " " & A5
x = x + 1
Next A5
Next A4
Next A3
Next A2
Next A1
End Sub