Code vba de rangement.

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