Dim DerLigne As Long
DerLigne = Sheets("base").Cells(Application.Rows.Count, 17).End(xlUp).Row
ActiveWorkbook.Names.Add Name:="boite", RefersToR1C1:=Replace("=base!R2C17:R?C17", "?", DerLigne)
ActiveWorkbook.Names.Add Name:="carton", RefersToR1C1:=Replace("=base!R2C18:R?C18", "?", DerLigne)
ActiveWorkbook.Names.Add Name:="reference", RefersToR1C1:=Replace("=base!R2C12:R?C12", "?", DerLigne)
ActiveWorkbook.Names.Add Name:="emplacement", RefersToR1C1:=Replace("=base!R2C14:R?C14", "?", DerLigne)
ActiveWorkbook.Names.Add Name:="niveau", RefersToR1C1:=Replace("=base!R2C15:R3.C15", "?", DerLigne)