améliorer une macro

Code:

---

1 2 3 4 5 6 7 8 9

sub rrr() if sheets("feuil1").visible = false then sheets("feuil1").visible = true end if if sheets("feuil2").visible = false then sheets("feuil2").visible = true end if ... end sub

---

quelqu'un peut mieux écrire cette macro. Moins de ligne:mrgreen:
je sais c un jeu d'enfant:mouarf:

Je sais pas si ca ca marche ?

Code:

---

1 2 3 4 5 6 7 8 9

sub rrr()   i = 1 to 10 'admettons que tu ai 10 feuilles...   if sheets("feuil" & i).visible = false then sheets("feuil" & i).visible = true end if ... end sub

---

Nettement plus "propre":

Code:

---

1 2 3 4 5 6

Sub rrr() Dim wks As Worksheet For Each wks in ThisWorkbook.Worksheets wks.Visible = True Next wks End Sub

---