ActiveWorkbook.Names.Add Name:="Essai", RefersToR1C1:="=Feuil1!R1C1"
ActiveWorkbook.Names.Add Name:="plage", RefersToR1C1:="=Feuil1!R5C2:R16C3"
ActiveWorkbook.Names.Add Name:="nom", RefersToR1C1:="=Feuil1!R2C6:R12C6"
Range("F2:F12").Name = "nom"