Sub Creation_zones()
'
' Creation automatique de zones nommées
' Macro enregistrée le 08/01/2008 par u207926
'
Range("D11:L14").Select
'Range("D14").Activate
ActiveWorkbook.Names.Add Name:="zone1", RefersToR1C1:="=GTI!R11C4:R14C12"
Range("N11:V14").Select
'Range("N14").Activate
ActiveWorkbook.Names.Add Name:="zone2", RefersToR1C1:="=GTI!R11C14:R14C22"
Range("X11:AF14").Select
'Range("X14").Activate
ActiveWorkbook.Names.Add Name:="Zone3", RefersToR1C1:="=GTI!R11C24:R14C32"
Range("D16:L19").Select
'Range("D19").Activate
ActiveWorkbook.Names.Add Name:="zone4", RefersToR1C1:="=GTI!R16C4:R19C12"
Range("N16:V19").Select
' Range("N19").Activate
ActiveWorkbook.Names.Add Name:="Zone5", RefersToR1C1:="=GTI!R16C14:R19C22"
Range("X16:AF19").Select
'Range("X19").Activate
ActiveWorkbook.Names.Add Name:="Zone6", RefersToR1C1:="=GTI!R16C24:R19C32"
Range("D21:L24").Select
' Range("D24").Activate
ActiveWorkbook.Names.Add Name:="Zone7", RefersToR1C1:="=GTI!R21C4:R24C12"
Range("N21:V24").Select
' Range("N24").Activate
ActiveWorkbook.Names.Add Name:="Zone8", RefersToR1C1:="=GTI!R21C14:R24C22"
Range("X21:AF24").Select
' Range("X24").Activate
ActiveWorkbook.Names.Add Name:="Zone9", RefersToR1C1:="=GTI!R21C24:R24C32"
Range("D29:L32").Select
' Range("D32").Activate
ActiveWorkbook.Names.Add Name:="Zone10", RefersToR1C1:="=GTI!R29C4:R32C12"
Range("N29:V32").Select
' Range("N32").Activate
ActiveWorkbook.Names.Add Name:="Zone11", RefersToR1C1:="=GTI!R29C14:R32C22"
Range("X29:AF32").Select
' Range("X32").Activate
ActiveWorkbook.Names.Add Name:="Zone12", RefersToR1C1:="=GTI!R29C24:R32C32"