J'ai utilisé cette macro qui fonctionne :
La feuille active, d'où est lancée la macro, est copiée sur le classeur de mon choix, avant la première feuille.
sub CopierOnglet()
Dim QuelFichier
QuelFichier = Application.GetOpenFilename("Excel, *.xlsm")
For Each Workbook In Workbooks
If QuelFichier = False Then
MsgBox "Vous venez d'annuler l'opération."
Exit Sub
Else
End If
If Workbook.Name <> ThisWorkbook.Name Then
Workbook.Close SaveChanges:=True
End If
Next Workbook
If QuelFichier <> False Then
Workbooks.Open QuelFichier
ThisWorkbook.ActiveSheet.Copy before:=ActiveWorkbook.Sheets(1)
End If
End Sub