Sub CopieClasseur()
Dim Sh As Worksheet
Dim classeur1 As String, classeur2 As String
Dim Fichier
classeur1 = ThisWorkbook.Name
Fichier = Application.GetOpenFilename("Text Files (*.*), *.*")
If Fichier = False Then MsgBox "Ouverture Annulée": Exit Sub
Workbooks.Open Fichier, UpdateLinks:=0
classeur2 = ActiveWorkbook.Name
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Sh In Workbooks(classeur2).Worksheets
Workbooks(classeur2).Sheets(Sh.Name).Copy Before:=Workbooks(classeur1).Sheets(1)
Next Sh
Application.ScreenUpdating = True
Workbooks(classeur2).Close SaveChanges:=False
Workbooks(classeur1).Sheets("Bidon").Delete
Application.DisplayAlerts = True
End Sub