Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("maplage")) Is Nothing Then
If Range("maplage").Rows.Count > n Then
n = n + Target.Rows.Count
Call test
ElseIf Range("maplage").Rows.Count < n Then n = n - Target.Rows.Count
End If
End If
End Sub