Masquer lignes macro

Bonjour à tous,

J'aimerai créer une macro permettant de masquer les lignes 17 à 37, 39 à 59, 61 à 81, et ainsi de suite. Seule une ligne restera donc affichée entre les lignes masquées.
En revanche, l'opération sera effectuée N fois, soit N la valeur affichée en B10.
Par exemple, si N=1, alors les lignes 17 à 37 seront masquées,
si N=2, les lignes 17 à 37 et 39 à 59 seront masquées,
si N=3, les lignes 17 à 37 et 39 à 59 et 61 à 81 seront masquées,
et ainsi de suite..

Merci à vous tous !

Bonjour,

A mettre dans le module de la feuille en question :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Worksheet_Change(ByVal Target As Range)   Dim I As Long Dim J As Long   If Target.Address(0, 0) <> "B10" Then Exit Sub   J = 17   For I = 1 To Cells(10, 2).Value   'mettre "False" pour afficher les lignes masquées Range(Cells(J, 1), Cells(J + 20, 1)).EntireRow.Hidden = True J = J + 22   Next I   End Sub

---

Hervé.

Merci beaucoup Hervé, parfait !!