Private Sub Worksheet_Calculate()
For Each n In ActiveWorkbook.Names
If n.Name = "mémoNB" Then trouvé = True
Next n
If Not trouvé Then ActiveWorkbook.Names.Add Name:="mémoNB", RefersTo:="=" & [NbLignes].Value
If [NbLignes] <> [mémoNB] Then
'MsgBox "modif"
ActiveWorkbook.Names.Add Name:="mémoNB", RefersTo:="=" & [NbLignes].Value
FiltreMagasins
End If
End Sub