Bonjour,
Ben tu as du oublier quelque chose : n'oublie pas que la macro fonctionne avec les noms donnés. Si tu changes les noms, il faut aussi les changer dans la macro, par exemple un extrait de la macro de Ti :
Const Formule1 = "=OFFSET(ListeName,0,0,COUNTIF(ListeName,"">""""""),1)"
Const Formule2 = "=OFFSET(ListeAlpha,0,0,1,COUNTA(ListeAlpha))"
Private Sub CommandButton1_Click()
On Error Resume Next
Range("Saisie").ClearContents
Range("Classes").ClearContents
End Sub
Donc si tu nommes Saisie2 dans ta feuille il faudra que tu retouches tous les noms dans la macro soit Range("Saisie2").ClearContents
En faisant ALT F11, tu es dans l'editeur, du choisis la commande Edit, et tu selectionnes Replace - voir la copie ecran -. Ce qui te permet de remplacer les noms "old" par les ''new'' et peut-être d'omettre d'en remplacer certains.
J'espere que je n'ai pas oublié quelque chose - il existe peut-être une autre méthode plus rapide ou plus efficace pour dupliquer la macro sans oublier des arguments (peut-être que Ti verra une meilleure façon de procéder - aussi pardonnez-moi à l'avance).
Celeda