Range("K2", Range("K2").End(xlDown)).Select
Names.Add Name:="Valeurs_" & ActiveSheet.Name, RefersTo:="=" & ActiveSheet.Name & "!" & Selection.Address
Range("L2", Range("L2").End(xlDown)).Select
Names.Add Name:="Concatener_" & ActiveSheet.Name, RefersTo:="=" & ActiveSheet.Name & "!" & Selection.Address