Sub recup()
Application.ScreenUpdating = False
nf = Application.GetOpenFilename("fichiers Xls,*.xls")
If Not nf = False Then
Workbooks.Open Filename:=nf
Set R = ActiveWorkbook
ActiveWorkbook.Sheets(1).Copy after:=ThisWorkbook.Sheets(2)
R.Close
Call créaTion_FeuiLLe
Call titres
Call copie_num_EJ
Call paraMetres
MsgBox "Veuillez sélectionner l'export Lignes Chrono Mdt", vbOKOnly, "Saisie Lignes Chrono Mdt"
Call ManDats
For f = 3 To Sheets.Count
Sheets(f).Visible = False
Next
Sheets("Récap").Activate
MsgBox "Macro terminée, vous pouvez procéder à vos recherches!"
Else
MsgBox ("veuillez sélectionner un fichier valide")
End If
End Sub