Bonjour,
Rien à voir avec ton problème mais c'est pour comprendre, ton code n'a pas l'air d'être très verrouillé...
Sub Sommaire()
Dim i As Integer
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets(1).Select
Range("A2:Z1000").Select
Selection.ClearContents
Worksheets(1).Select est la 1ère feuille du classeur.
Si c'est la feuille qu'on vient de créer elle est déjà vide, si cette feuille crée est plus loin c'est la feuille Sommaire que tu vides. C'est normal ?
Et précise pas à pas comment tu utilises ton fichier et comment tu génères l'erreur, on ne peut pas deviner.
J'ai lancé, la feuille Sommaire a disparu et il cherche à l'activer => erreur.
J'ai lancé une 2nde fois en mettant la feuille crée au début, et erreur sur Worksheets(i).Name = ActiveSheet.Range("V" & i), la cellule Sommaire!V2 est vide.
Beaucoup trop d'erreur dans ton code et toi seul connait le fonctionnement prévu.
Fais-le en pas à pas avec F8 et tu verras toutes tes erreurs (sans doute souvent pas la feuille voulue d'activée je pense)
eric