Supprimer une plage nommée dans plusieurs feuilles

Bonjour,

J'essaie, via une macro, de supprimer plusieurs plages nommées dans différentes feuilles de mon fichier.

Pour cela, j'utilise une boucle.

Or de la boucle (sur juste une feuille), le code fonctionne très bien.

Cependant dès que je l'intègre dans ma boucle, j'ai un message d'erreur.

Voici mon code :

Sub boucle()

Dim f1 As Worksheet
Dim r1 As Range, r2 As Range, r3 As Range

For Each f1 In Worksheets
  If ActiveSheet.Name <> "Données" Then

    Set r1 = Range("Semestre1")
    Set r2 = Range("Trimestre3")
    Set r3 = Range("Bilan")
        Union(r1, r2, r3).Delete

  End If
Next f1

End Sub

Merci d'avance pour votre aide,

Maxime

Bonjour, je n'ai pas testé, mais essaie ça :

Sub boucle()

Dim f1 As Worksheet
Dim r1 As Range, r2 As Range, r3 As Range

For Each f1 In Worksheets
  If f1.Name <> "Données" Then

    Set r1 = f1.Range("Semestre1")
    Set r2 = f1.Range("Trimestre3")
    Set r3 = f1.Range("Bilan")
        Union(r1, r2, r3).Delete

  End If
Next f1

End Sub

J'avais déjà testé mais cela ne fonctionne malheureusement pas.

Merci d'essayer tout de même

Personne d'autre n'a une idée ?

Re Bonjour,

Le code fonctionne en fait très bien, c'était moi qui avait une erreur dans la syntaxe.

Encore merci pour ton aide !!