Masquer des lignes sous conditions

Bonjour,

Pourriez-vous m'indiquer la macro pour masquer les lignes de la "Feuil1" en fonction du nombre indiqué dans la cellule "B10".

Si la cellule B10 indique 1, il faut masquer les lignes 15 à 50 (Exemple 1).

Si la cellule B10 indique 2, il faut masquer les lignes 19 à 50 (Exemple 2).

Si la cellule B10 indique 3, il faut masquer les lignes 23 à 50 (Exemple 3).
Etc...

Et si la cellule B10 indique 10, il ne faut masquer aucune ligne (Exemple 4).

J'imagine que la solution la plus simple est de passer par une macro car une mise en forme conditionnelle ne pourra pas masquer des lignes complètes ?

PS : Je souhaite masquer les lignes (Et non pas effacer le contenu).

Merci d'avance pour votre aide !

Bonjour,

Voilà, macro dans le module de la feuille1?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Lignes As String
    On Error GoTo Sortie
    If Not Intersect(Target, Range("B10")) Is Nothing Then
        Application.EnableEvents = False
        Cells.EntireRow.Hidden = False
        If Target.Value < 10 Then
            Lignes = 15 + ((Target.Value - 1) * 4) & ":" & 50
            Rows(Lignes).EntireRow.Hidden = True
        End If
    End If

Sortie:
    Application.EnableEvents = True
End Sub

Cdlt

Bonjour

Au changement de la valeur de B10 (quelque soit la feuille) la macro fait son boulot

A+ François

Merci beaucoup Arturo83 et fanfan38 pour vos réponses.

J'ai utilisé le code d'Arturo83 car il fonctionne et répond parfaitement à mes attentes