Affecter ranges non-contiguës au tableau

Sub CreerTableau()
Dim MyTableau()
Dim MyRange As Range, i As Integer, cell As Range
[COLOR=red][B]Set[/B][/COLOR] MyRange = Union(Range("B2"), Range("B9:B40"), Range("C2:M2"))
i = [COLOR=red][B]0[/B][/COLOR]
For Each cell In MyRange
[COLOR=red][B]ReDim MyTableau(i + 1)[/B][/COLOR]
MyTableau(i) = cell.Value
i = i + 1
Next cell
End Sub

Sub CreerTableau()
Dim MyTableau()
Dim MyRange As Range, i As Integer, cell As Range
Set MyRange = Union(Range("B2"), Range("B9:B40"), Range("C2:M2"))
i = 0
For Each cell In MyRange
ReDim [COLOR=red]Preserve[/COLOR] MyTableau(i)
MyTableau(i) = cell.Value
i = i + 1
Next cell
End Sub