Sub Deperditions()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.Unprotect "toto"
Sheets("Dpp").Delete
Application.DisplayAlerts = True
NomFic = Application.GetOpenFilename("Text files (*.csv), *.csv") '(, , "programmes Presses")
If NomFic <> False Then
Workbooks.OpenText Filename:=NomFic, DataType:=1, Semicolon:=True, local:=True
End If
ActiveSheet.Name = "Dpp"
Sheets("Deperditions").Move Before:=ThisWorkbook.Sheets("R1")
Application.ScreenUpdating = True
Sheets("Dpp").Select
Entetet_Dpp.Show False
End Sub