With Worksheets("Parametres")
ThisWorkbook.Names("BasesSF").RefersTo = .Range(Range("L2"), Range("L100").End(xlUp))
.Range("BasesSF").Sort key1:=Range("L2"), order1:=xlAscending, Header:=xlNo
ThisWorkbook.Names("DateDepart").RefersTo = .Range(Range("M2"), Range("M5000").End(xlUp))
.Range("DateDepart").Sort key1:=Range("M2"), order1:=xlAscending, Header:=xlNo
ThisWorkbook.Names("Site").RefersTo = .Range(Range("N2"), Range("N5000").End(xlUp))
.Range("Site").Sort key1:=Range("N2"), order1:=xlAscending, Header:=xlNo
End With