Application.DisplayAlerts = False
Sheets("Feuil2").Select
Sheets("Feuil2").Cells.Clear
ActiveWorkbook.XmlImport URL:=Repertoire & FichS, ImportMap:= _
Nothing, Overwrite:=True, Destination:=Range("$A$1")
Sheets("Feuil1").Select
Application.DisplayAlerts = True