Copier toutes les feuilles d'un classeur

Bonjour le forum

Je cherche un modèle de macro qui me permettrait de copier toutes les feuilles d'un fichier dans mon classeur actif, ce fichier étant choisi et le nombre de feuille étant aléatoire.

D'avance merci pour votre aide

Bonjour eole,

code à copier dans un module, permet la copie de toutes les feuilles du classeur :

Sub Copie_toutes_les_feuilles()
Dim CL1 As Workbook
Dim CL2 As Workbook
Dim LaFeuille As Worksheet

Application.ScreenUpdating = False

Set CL1 = Workbooks("Classeur1")
Set CL2 = Workbooks("Classeur2")

    For Each LaFeuille In CL1.Worksheets
            LaFeuille.Copy After:=CL2.Worksheets(CL2.Worksheets.Count)
    Next

Set CL1 = Nothing
Set CL2 = Nothing

Application.ScreenUpdating = True

End Sub

avec ce code une demande de copie est faite pour chaque feuille :

Sub Copie_de_certaines_feuilles()
Dim CL1 As Workbook
Dim CL2 As Workbook
Dim LaFeuille As Worksheet

Application.ScreenUpdating = False

Set CL1 = Workbooks("Classeur1")
Set CL2 = Workbooks("Classeur2")

    For Each LaFeuille In CL1.Worksheets
       If MsgBox("Copier la feuille " & LaFeuille.Name, vbYesNo) = vbYes Then _
            LaFeuille.Copy After:=CL2.Worksheets(CL2.Worksheets.Count)
    Next

Set CL1 = Nothing
Set CL2 = Nothing

Application.ScreenUpdating = True

End Sub

Bonjour le forum

Bonjour Ednoork

Merci beaucoup ça va bien me dépanner

c'est impec