Re : Faire des couplés de chiffres
Bonjour
Théoriquement le compte est bon
Sub Combis_Couplés()
Dim A As Byte, B As Byte, X As Long
X = 1
For A = 1 To 17
For B = A + 1 To 18
Total = A + B
Cells(X, 1) = A
Cells(X, 2) = B
Cells(X, 5) = "Total: " & Total
Cells(X, 6) = "N° Combi: " & X
X = X + 1
Next
Next
End Sub