Application.Union (Excel)
Renvoie l’union de deux plages ou plus.
Union (Arg1, Arg2, ..., Arg30)
Worksheets("Sheet1").Activate
Set bigRange = Application.Union(Range("Range1"), Range("Range2"))
bigRange.Formula = "=RAND()"
Arguments
Arg1, Arg2, ..., Arg30Arg1 (Range) - Au moins deux objets Range doivent être spécifiés.
Arg2 (Range) - Au moins deux objets Range doivent être spécifiés.