Option Explicit
Sub Macro1()
Dim plage1, plage2, plage3, plage4, plage5, plage6, plages As Range
Range('C21:K61').Name = 'plage1'
Range('C77:K132').Name = 'plage2'
Range('C148:K203').Name = 'plage3'
Range('C219:K274').Name = 'plage4'
Range('C290:K345').Name = 'plage5'
Range('C361:K400').Name = 'plage6'
plages = Application.Union(plage1, plage2, plage3, plage4, plage5, plage6)
plages.Select
End Sub