Bonsoir Claude, j'ai peut être une solution moins éprouvante que celle de Baroude,
En effet le classeur où sont toutes macros, il lui suffit de lui supprimer toutes ses feuilles sauf la première puis avec le code suivant on va chercher le fichier dont on copie toutes ses feuilles dans le classeur original, puis on supprime la premiere feuille, il ne reste plus qu'à sauvegarder. on a toute les macros
Sub import()
Dim i As Integer
Dim reponse As String
For i = Sheets.Count To 2 Step -1
Application.DisplayAlerts = False
Sheets(i).Delete
Next i
filetoopen = Application.GetOpenFilename("Excel fichiers (*.xls), *.xls")
If filetoopen <> False Then
Workbooks.Open (CStr(filetoopen))
End If
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Copy After:=Workbooks("test.xls").Sheets(1)
Next i
Workbooks("test.xls").Sheets(1).Delete
reponse = InputBox("NOM du fichier")
Workbooks("test.xls").SaveCopyAs (reponse)
End Sub
Attention aux noms de feuille !!! car je n'ai pas testé le
A+++