union(.range( = limité ???

Option Explicit

Sub TestUnionOnUnion()
Dim Cell As Range
Dim MyRangePart1 As Range
Dim MyRangePart2 As Range
Dim MyBigRange As Range

Set MyRangePart1 = Union(Range('A1'), Range('A10'), Range('TOTO'))
Set MyRangePart2 = Union(Range('B1'), Range('B10'))
Set MyBigRange = Union(MyRangePart1, MyRangePart2)


    For Each Cell In MyBigRange
        Cell.Interior.ColorIndex = 3
    Next


End Sub

Cliquez pour agrandir...

Dim Plage As Range
Dim r As Long
Dim i As Integer, Colonne As Integer
      r = Selection.Row
      With ActiveSheet
            'Définition de la première cellule de la plage souhaitée
            Set Plage = .Cells(r, 1)      '(à adapter)
            'Union avec les autres cellules à l'aide d'une boucle
            For i = 1 To 99                    '(pour une plage de 100 cellules)
                  'Détermination de la colonne de chaque cellule voulue
                  Colonne = Choose(i,1,2,5,15,27,28,36,.....)           '(à adapter et compléter)
                  'Union
                  Set Plage = Union(Plage, .Cells(r, Colonne))
            Next i
            Plage.Select
      End With

Cliquez pour agrandir...

For Each Cell In MyBigRange
      Cell.Interior.ColorIndex = 3
Next

Cliquez pour agrandir...

MyBigRange.Interior.ColorIndex = 3

Cliquez pour agrandir...