Workbooks.SaveAs Filename:=lefichier, Origin _
:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=True, Space:=False, Other:=False, DecimalSeparator:=".", _
TrailingMinusNumbers:=True