Nb ligne dynamique

Bonjour tout le monde,

J'ai une case nombre d'année contenant par exemple 5. Ensuite, il y a 5 ligne numérote de 1 a 5.

Si, je change la valeur 5 px a 10.

Alors, je voudrais que automatiquement il rajouté 5ligne de plus.

Par conséquent 1 a 10 ligne. Est ce que c'est possible ?

Merci de votre d'avance pour votre reponses.

Salut le forum

Bienvenue comme nouveau membres

La cellule B5 contient ton nombre, code à coller dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B5")) Is Nothing Then
  Range("B6:B" & Range("B65536").End(xlUp).Row + 1).ClearContents

    With Target
      If .Value > 0 Then .Offset(1) = "1"
        If .Value > 1 Then _
          .Offset(1).AutoFill _
            Destination:=Range("B6").Resize(Target, 1), _
            Type:=xlFillSeries
    End With
End If

End Sub

Par formule en B6 à recopier vers le bas

=SI(B$5>=LIGNE()-5;LIGNE()-5;"")

Mytå