Microsoft 365 Nombre d'arguments dans un Array

Sub SimplifyRange()
    Dim plages As Collection
    Set plages = New Collection
    
    Dim cols As Variant
    cols = Array("D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N")
    
    Dim i As Integer
    Dim col As Variant
    For Each col In cols
        For i = 20 To 140
            Select Case i
                Case 20 To 50
                    plages.Add Range(col & "20:" & col & "50")
                Case 51 To 80
                    plages.Add Range(col & "51:" & col & "80")
                Case 81 To 92
                    plages.Add Range(col & "81:" & col & "92")
                Case 93 To 104
                    plages.Add Range(col & "93:" & col & "104")
                Case 105 To 113
                    plages.Add Range(col & "105:" & col & "113")
                Case 114 To 122
                    plages.Add Range(col & "114:" & col & "122")
                Case 123 To 131
                    plages.Add Range(col & "123:" & col & "131")
                Case 132 To 140
                    plages.Add Range(col & "132:" & col & "140")
            End Select
        Next i
    Next col
    
    ' Exemple de comment utiliser les plages
    Dim plage As Range
    For Each plage In plages
        ' Faites quelque chose avec chaque plage
        Debug.Print plage.Address
    Next plage
End Sub

Sub test()
Const colonnes = "D E F G H I J K L M N"
Const lignes = "20:50 51:80 81:92 93:104 105:113 114:122 123:131 132:140"
Dim lesCols, lesLigs, i&, j&, n&, x
   lesCols = Split(colonnes): lesLigs = Split(lignes)
   ReDim plages(0 To (UBound(lesCols) + 1) * (UBound(lesLigs) + 1) - 1): n = -1
   For j = 0 To UBound(lesCols)
      For i = 0 To UBound(lesLigs)
         n = n + 1
         plages(n) = lesCols(j) & lesLigs(i)
         plages(n) = Replace(plages(n), ":", ":" & lesCols(j))
         Set plages(n) = Range(plages(n))
      Next i
   Next j
End Sub