Sub Secteur()
'
' Secteur Macro
' Macro enregistrée le 03/01/2013 par
'
Fin = Range("A65536").End(xlUp)
ThisWorkbook.Sheets("liste des secteurs").Select
Range("A3").Select
ActiveSheet.ShowDataForm 'Ajouter ou supprimer une zone dans la base de données
Worksheets("liste des secteurs").Activate
ActiveWorkbook.Names.Add "Zone", Range(Range("A2"), Range("Fin")) 'Definition du champs "Zone"
ThisWorkbook.Sheets("Evaluation du risque").Select
End Sub