Code vba de rangement.

Bonjour
A tester

Sub Paires()
    Application.ScreenUpdating = False
    'Construction des paires
    ReDim Paire(210)
    N = 1
    For k = 1 To 20
        For i = k + 1 To 21
            Paire(N) = "'" & k & "-" & i
            N = N + 1
        Next i
    Next k
    'Restitution dans le tableau
    N = 1
    For L = 1 To 21
        For C = 3 To 12
            Cells(L, C) = Paire(N)
            N = N + 1
        Next C
    Next L
End Sub

Cdlt

Bonjour Frenchie83

Merci pour ton code mais il me faut un nombre par cellule (et non la paire) de telle façon q'une paire ne soit jamais en double dans la plage mais que toutes soient présentes 1 fois (arrangement casse-tête !!)

merci
bon AM

oui, un exemple simplifié avec 10 nombres seulement soit 45 paires possibles.

Une seule grille de 10 nombres ( 1 2 3 4 5 6 7 8 9 10) suffit à couvrir les 45 paires une fois au moins (1-2,1-3,1-4....9-10).

pas facile !