[VBA] Code erreur 1004 avec un script

Bonjour à tous ,

Il m'arrive de dupliquer certaines pages de mon classeur contenant le code suivant :

Private Sub Worksheet_Activate()
    choix = ""
    For Each f In Worksheets
        If f.Name <> "GHI" Then choix = choix & f.Name & ","
    Next
    Range("A1").Validation.Delete
    Range("A1").Validation.Add xlValidateList, Formula1:=choix
End Sub

Et le problème c'est que parfois j'ai une erreur 1004 qui s'affiche. Si j'essaie de désactiver les erreurs avec "On Error Resume Next" ça me fait carrément planté tout le fichier et il devient corrompu. Une idée de comment régler le problème ?

image image
Rechercher des sujets similaires à "vba code erreur 1004 script"