inscrire les données dans les cellules

Sub Macro1Bis()
Dim lin&, col&
lin = 1
col = 1
For m = 1 To 20
  For n = m + 1 To 20
    For o = n + 1 To 20
      For p = o + 1 To 20
        For q = p + 1 To 20
        Cells(lin, col) = m '& " " & n & " " & o & " " & p & " " & q
        Cells(lin, col + 1) = n
        Cells(lin, col + 2) = o
        Cells(lin, col + 3) = p
        Cells(lin, col + 4) = q
        lin = lin + 1
        If lin > 65500 Then
            col =6
            lin = 1
          End If
      Next q, p, o, n, m
End Sub

Sub Macro1Ter()
Dim lin&, col&
lin = 1
col = 1
For m = 1 To 20
  For n = m + 1 To 20
    For o = n + 1 To 20
      For p = o + 1 To 20
        For q = p + 1 To 20
          Cells(lin, col).Resize(, 5) = Array(m, n, o, p, q)
          lin = lin + 1
          If lin > 65500 Then
            col = 6
            lin = 1
          End If
        Next q, p, o, n, m
End Sub

Sub test()
Dim t: t = [{1,2,3}]
'ceci fonctionne
Range("A1:C1") = [{1,2,3}]
Rows(1).Clear
'idem avec cela
Cells(1, 1).Resize(, 3) = [{1,2,3}]

'Et pourtant ceci ne fonctionne dans le code précédent
'Cells(lin, col).Resize(, 5)= [{m, n, o, p, q}]
'Why ?
End Sub

Sub Macro1Ter()
Dim lin&, col&
lin = 1
col = 1
For m = 1 To 20
  For n = m + 1 To 20
    For o = n + 1 To 20
      For p = o + 1 To 20
        For q = p + 1 To 20
          Cells(lin, col).Resize(, 5) = Array(m, n, o, p, q)
          lin = lin + 1
          If lin > 65500 Then
            col = col+5 'modif ici
            lin = 1
          End If
        Next q, p, o, n, m
End Sub