1
2
3
4
5
6

Sub UnionDePlages()
Dim plageCellules1, plageCellules2, AllPlage As Range
Set plageCellules1 = Sheets("Feuil1").Range("A1:A10")
Set plageCellules2 = Sheets("Feuil1").Range("B10:B20")
ToutePlage = Union(plageCellules1, plageCellules2)
End Sub