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 ?