Private Sub CommandButton1_Click() ' RECHERCHE DU CLASSEUR SOURCE
Dim Classeur_choisi As Long
Static Classeur_choisi_bis As String
Select Case UserForm1.CommandButton1.Caption
Case "Feuille à Copier"
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
For Classeur_choisi = 1 To .SelectedItems.Count
Workbooks.Open (.SelectedItems(Classeur_choisi))
Next Classeur_choisi
End With
Classeur_choisi_bis = ActiveWorkbook.Name
ActiveWorkbook.Saved = True ' Pour éviter le message de re-calcul des formules d'une version antérieure.
UserForm1.CommandButton1.Caption = "Copier cette Feuille"
' ICI L'ON PEUT CHOISIR LA FEUILLE A COPIER
Case "Copier cette Feuille"
ActiveWorkbook.ActiveSheet.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
Windows(Classeur_choisi_bis).Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Unload UserForm1
Sheets("intégration").Select
Application.DisplayAlerts = True
ActiveWorkbook.Save
End Select
End Sub