Bonjour,
sur ma version 2003, pas de souci la première fois. Mais dès la deuxième, cela plante vers l'élève 19 ou 20 …
Idem en optimisant le code :
Sub Créer_Feuilles()
Dim Cel As Range
Application.ScreenUpdating = False
For Each Cel In Range("A6", Cells(Rows.Count, 1).End(xlUp))
Feuil2.Copy , Worksheets(Worksheets.Count)
With Cel
ActiveSheet.Name = .Value
Range("B2").Value = .Value
Range("D2").Value = .Offset(, 1).Value
Range("B5:F5").Value = .Offset(, 2).Resize(, 5).Value
End With
Next
End Sub
Plus de souci en copiant les données des deux premières feuilles dans un nouveau classeur !
Et en paramétrant le pied de page de la feuille modèle, plus besoin de coder une procédure …