Regrouper 3 Unprotect

Bonjour

Est il possible pour ce code de regrouper les 3 lignes en une seule

Ce code est sur un bouton ActivX

Je vous remercie

 Worksheets("Finale").Unprotect "toto"
  Worksheets("Poule 1").Unprotect "toto"
  Worksheets("Poule 2").Unprotect "toto"

Bonjour,
Une proposition !
Cdlt.

Dim t As String, x, i As Long
t = "Finale,Poule 1,Poule 2": x = Split(t, ","): For i = LBound(x) To UBound(x):Worksheets(x(i)).Unprotect "toto": Next
Rechercher des sujets similaires à "regrouper unprotect"